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