From dcdb7e43718bf6df0f3a2a28229025a368711a34 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Wed, 20 Feb 2002 13:55:19 +0000
Subject: [PATCH] Remove superfluous display of condition.

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

diff --git a/ftpd.scm b/ftpd.scm
index 0513740..dcd15a9 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -230,7 +230,6 @@
 	     "hit error condition ~A (maybe reason (maybe Netscape?): ~S) -- exiting"
 	     (condition-type condition)
 	     (condition-stuff condition))
-	(display condition (current-error-port))
 	(escape 'fick-dich-ins-knie))
       (lambda ()
 	(let-fluid session (make-session input-port output-port
@@ -1129,7 +1128,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.30 $")
+(define *ftpd-version* "$Revision: 1.31 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))