From 1c6bfbc4eaf182224a42f6d62bb92b3454f406c1 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Fri, 21 Mar 2003 10:42:37 +0000
Subject: [PATCH] Clear the THE-SESSION-REPLIES after writing a reply.

---
 scheme/ftpd/ftpd.scm | 1 +
 1 file changed, 1 insertion(+)

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)