diff --git a/ftpd.scm b/ftpd.scm
index e1b7a04..55788d8 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -357,7 +357,7 @@
        (signal-error! 550
 		      (format #f "Could not rename: ~A." path)))
      (lambda ()
-       (rename-file full-path)
+       (rename-file (session-to-be-renamed) full-path)
        (register-reply! 250 "File renamed.")
        (set-session-to-be-renamed #f)))))
   
@@ -808,7 +808,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.12 $")
+(define *ftpd-version* "$Revision: 1.13 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))