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