diff --git a/collects/tests/net/ftp.rkt b/collects/tests/net/ftp.rkt
index 511586b168..11554516dc 100644
--- a/collects/tests/net/ftp.rkt
+++ b/collects/tests/net/ftp.rkt
@@ -21,7 +21,8 @@
            (ftp-make-file-seconds ftp-date)))
         
         (ftp-download-file conn tmp-dir pth)
-        (delete-file (build-path tmp-dir pth))
-        (delete-directory/files tmp-dir)
         
-        (ftp-close-connection conn)))
\ No newline at end of file
+        (ftp-close-connection conn)
+        
+        (delete-file (build-path tmp-dir pth))
+        (delete-directory/files tmp-dir)))
\ No newline at end of file