From 7e00a44f629bf0c69aa968ec924a2fe1253b6c11 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Mon, 24 May 2010 09:56:15 -0600
Subject: [PATCH] Fixing ftp-download-file

original commit: f5bddf770508a4b8be0cf8e22414363ff6348538
---
 collects/net/ftp-unit.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/ftp-unit.rkt b/collects/net/ftp-unit.rkt
index c821d95..009d470 100644
--- a/collects/net/ftp-unit.rkt
+++ b/collects/net/ftp-unit.rkt
@@ -197,7 +197,7 @@
                      (path->string (build-path folder "ftptmp"))
                      "~~")
                     "~a"))]
-         [new-file (open-output-file tmpfile 'replace)]
+         [new-file (open-output-file tmpfile #:exists 'replace)]
          [tcpstring (bytes-append #"RETR "
                                   (string->bytes/locale filename)
                                   #"\n")]