From 899a7d6f30db24fd9ddb17e7185017f113695e06 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Wed, 20 Jun 2001 13:33:03 +0000
Subject: [PATCH] Use INTERNET-ADDRESS/ANY (who knows if this is right) instead
 of (THIS-HOST-ADDRESS).

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

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