diff --git a/collects/net/ftp-unit.rkt b/collects/net/ftp-unit.rkt
index f0b43c0b41..57531b24a8 100644
--- a/collects/net/ftp-unit.rkt
+++ b/collects/net/ftp-unit.rkt
@@ -178,7 +178,7 @@
     (fprintf (ftp-connection-out tcp-ports) "LIST\n")
     (ftp-check-response (ftp-connection-in tcp-ports)
                         (ftp-connection-out tcp-ports)
-                        #"150" void (void))
+                        (list #"150" #"125") void (void))
     (let ([dir-list (filter-tcp-data tcp-data re:dir-line)])
       (close-input-port tcp-data)
       (ftp-check-response (ftp-connection-in tcp-ports)
@@ -205,7 +205,7 @@
     (display tcpstring (ftp-connection-out tcp-ports))
     (ftp-check-response (ftp-connection-in tcp-ports)
                         (ftp-connection-out tcp-ports)
-                        #"150" print-msg (void))
+                        (list #"125" #"150") print-msg (void))
     (copy-port tcp-data new-file)
     (close-output-port new-file)
     (close-input-port tcp-data)