diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm
index df58611..f87e3ac 100644
--- a/scheme/lib/ftp.scm
+++ b/scheme/lib/ftp.scm
@@ -394,8 +394,8 @@
 (define (ftp-read-reply connection . maybe-expected)
   (let-optionals* maybe-expected ((expected? (code-with-prefix "2")))
     (let* ((sock (ftp-connection-command-socket connection))
-	   (IN (socket:inport sock))
-	   (reply (read-crlf-line IN))
+	   (in (socket:inport sock))
+	   (reply (read-crlf-line in))
 	   (code (substring reply 0 3)))
       (ftp-log connection (format #f "-> ~a" reply))
       (if (not (expected? code))
@@ -404,7 +404,7 @@
       (if (char=? (string-ref reply 3) #\-)
 	  (let ((end-prefix (string-append code " ")))
 	    (let loop ()
-	      (let* ((line (read-crlf-line IN))
+	      (let* ((line (read-crlf-line in))
 		     (reply (string-join (list reply line "\n"))))
 		(ftp-log connection (format #f "-> ~a" line))
 		(if (string-prefix? end-prefix line)