diff --git a/ftpd.scm b/ftpd.scm
index 128420b..49a7d39 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -482,7 +482,7 @@
 
     ;; kludge
     (bind-socket socket
-		 (internet-address->socket-address (this-host-address)
+		 (internet-address->socket-address internet-address/any
 						   0))
     (listen-socket socket 1)
 
@@ -810,7 +810,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.14 $")
+(define *ftpd-version* "$Revision: 1.15 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))