From db59a087ab56bff5dd788589e11e53464dbe9ff9 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Sat, 9 Jun 2001 09:33:37 +0000
Subject: [PATCH] Don't list files as directories.

---
 ftpd.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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*)))