diff --git a/scheme/ftpd/ftpd.scm b/scheme/ftpd/ftpd.scm
index 6531277..764464d 100644
--- a/scheme/ftpd/ftpd.scm
+++ b/scheme/ftpd/ftpd.scm
@@ -1301,6 +1301,7 @@
 	      (write-crlf (the-session-control-output-port))
 	      (log (syslog-level debug) "Reply: ~A" reply-text)
 	      (loop (cdr replies))))))))
+  (set-the-session-replies! '())
   (set-the-session-reply-code! #f))
 
 (define (signal-error! code message)