diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm
index 29f4f65..b5d0f92 100644
--- a/scheme/lib/ftp.scm
+++ b/scheme/lib/ftp.scm
@@ -72,18 +72,8 @@
 ;; beware, the log file contains password information!
 
 (define (ftp-connect host login password passive? . args)
-  (let-optionals* args ((logfile #f))
-    (let* ((log (cond
-		 ((output-port? logfile)
-		  logfile)
-		 ((string? logfile)
-		  (open-output-file logfile
-				    (if (file-exists? logfile)
-					(bitwise-ior open/write open/append)
-					(bitwise-ior open/write open/create))
-				    #o600))
-		 (else #f)))
-	   (hst-info (host-info host))
+  (let-optionals* args ((log #f))
+    (let* ((hst-info (host-info host))
 	   (hostname (host-info:name hst-info))
 	   (srvc-info (service-info "ftp" "tcp"))
 	   (sock (socket-connect protocol-family/internet