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: