From 4692fba59908e1cedd5eb5b3d4d2b4b4f97efb0d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 10 Aug 2011 08:25:11 -0600
Subject: [PATCH] ftp: fix data download for some servers

original commit: 1c1d1934f4f597ee87778c01d356dfdba9eb5721
---
 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 de4531b..6aaf99d 100644
--- a/collects/net/ftp-unit.rkt
+++ b/collects/net/ftp-unit.rkt
@@ -119,7 +119,7 @@
         (ftp-check-response (ftp-connection-in tcp-ports)
                             (ftp-connection-out tcp-ports)
                             #"200" void (void))
-        (close-output-port tcp-data-out)
+        (tcp-abandon-port tcp-data-out)
         tcp-data))))
 
 ;; Used where version 0.1a printed responses: