Don't allow a file name as the "log" argument to FTP-CONNECT---the

library never bothered closing the port anyway.

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