From 241e5c7a2a68096ae1a7dd1ec3cdac5e8daf176a Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 19 Apr 2002 15:56:24 +0000
Subject: [PATCH] removed ping-statement... (sorry)

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

diff --git a/ftpd.scm b/ftpd.scm
index b8747df..5afe717 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -187,7 +187,6 @@
    maybe-args
    ((port 21)
     (logfile #f))
-   (display "ping!\n")
    (if logfile 
        (set! *logfile* (open-output-file logfile (bitwise-ior open/create open/append))))
    (with-syslog-destination 
@@ -1215,7 +1214,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.33 $")
+(define *ftpd-version* "$Revision: 1.34 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))