From f5cd1798d3c3edb33f9a03903ab77c542f5ac80c Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 8 Jan 2002 15:02:39 +0000
Subject: [PATCH] THREAD-FORK doesn't take an additional second argument (yet).

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

diff --git a/ftpd.scm b/ftpd.scm
index 5060d9f..8c6bcac 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -145,8 +145,7 @@
 					 address
 					 anonymous-home
 					 port
-					 remote-address)
-	     remote-address)))    ; use remote address as thread-name
+					 remote-address))))
 	port)))))
 
 (define (spawn-to-handle-connection socket address anonymous-home port remote-address)
@@ -1127,7 +1126,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.27 $")
+(define *ftpd-version* "$Revision: 1.28 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))