diff --git a/ftpd.scm b/ftpd.scm index 8c6bcac..1b24f4c 100644 --- a/ftpd.scm +++ b/ftpd.scm @@ -292,7 +292,7 @@ "Command line: ~A" command-line) (cond ((eq? command-line 'timeout) - (log (syslog-level notice) "hit timeliimit of ~D seconds (421)" + (log (syslog-level notice) "hit timelimit of ~D seconds (421)" timeout-seconds) (log (syslog-level debug) "so closing control connection and quitting") @@ -1126,7 +1126,7 @@ ; Version -(define *ftpd-version* "$Revision: 1.28 $") +(define *ftpd-version* "$Revision: 1.29 $") (define (copy-port->port-binary input-port output-port) (let ((buffer (make-string *window-size*)))