diff --git a/ftpd.scm b/ftpd.scm
index 86e4836..2f4ab03 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -551,7 +551,7 @@
 		 ;; work around OLIN BUG
 		 (if (string=? nondir "")
 		     "."
-		     (file-name-as-directory nondir)))
+		     nondir))
 		(socket:outport (session-data-socket))))))))))
 
 (define (handle-abor foo)
@@ -781,7 +781,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.4 $")
+(define *ftpd-version* "$Revision: 1.5 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))