diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm
index ea19f4a..55504ec 100644
--- a/scheme/lib/ftp.scm
+++ b/scheme/lib/ftp.scm
@@ -276,7 +276,7 @@
          (local (if (pair? maybe-local)
                     (car maybe-local)
                     'empty))
-         (OUT (cond ((string? local) (open-output-file local))
+         (out (cond ((string? local) (open-output-file local))
                     ((eq? local #t) (current-output-port))
                     ((eq? local #f) (make-string-output-port))
                     (else
@@ -286,14 +286,14 @@
                       (exactly-code "150"))
     (receive (newsock newsockaddr)
 	(accept-connection sock)
-      (with-current-output-port OUT
+      (with-current-output-port out
 				(dump (socket:inport newsock)))
       (close-socket newsock)
       (close-socket sock)
       (let ((status (ftp-read-reply connection)))
-	(if (string? local) (close OUT))
+	(if (string? local) (close out))
 	(if (eq? local #f)
-	    (string-output-port-output OUT)
+	    (string-output-port-output out)
 	    status)))))
 
 
@@ -402,9 +402,9 @@
 
 (define (ftp-send-command connection command . maybe-expected)
   (let* ((sock (ftp-connection-command-socket connection))
-	 (OUT (socket:outport sock)))
-    (write-string command OUT)
-    (write-crlf OUT)
+	 (out (socket:outport sock)))
+    (write-string command out)
+    (write-crlf out)
     (ftp-log connection (format #f "<- ~a" command))
     (apply ftp-read-reply connection maybe-expected)))