diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm
index 3c01a1c..72f2d4f 100644
--- a/scheme/lib/ftp.scm
+++ b/scheme/lib/ftp.scm
@@ -138,7 +138,7 @@
     (values)))
 
 (define (ftp-rename connection oldname newname)
-  (ftp-send-command connection (build-command "RNFR " oldname)
+  (ftp-send-command connection (build-command "RNFR" oldname)
 		    (code-with-prefix "35"))
   (ftp-send-command connection (build-command "RNTO" newname)
 		    (code-with-prefix "25"))