diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm
index fdff509..df58611 100644
--- a/scheme/lib/ftp.scm
+++ b/scheme/lib/ftp.scm
@@ -416,8 +416,9 @@
   (string-join (cons str opt-args)))
 
 (define (ftp-log connection line)
-  (let ((LOG (ftp-connection-logfd connection)))
-    (and LOG
-         (write-string line LOG)
-         (write-string "\n" LOG)
-         (force-output LOG))))
+  (cond
+   ((ftp-connection-logfd connection)
+    => (lambda (log)
+         (write-string line log)
+         (write-string "\n" log)
+         (force-output log)))))