diff --git a/scheme/lib/ftp-library.scm b/scheme/lib/ftp-library.scm
index 9419b98..66c757f 100644
--- a/scheme/lib/ftp-library.scm
+++ b/scheme/lib/ftp-library.scm
@@ -37,10 +37,9 @@
 (define (copy-ascii-port->port input-port output-port)
   (let loop ()
     (let* ((line (read-crlf-line input-port
-				 #f))
-	   (length (string-length line)))
+				 #f)))
       (if (not (eof-object? line))
-	  (begin
+	  (let ((length (string-length line)))
 	    (write-string line output-port 0 length)
 	    (newline output-port)
 	    (loop)))))