From 118bc545b17862448614c30115faf9d849edfc67 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 27 Feb 2003 10:53:24 +0000
Subject: [PATCH] Make sure we close the data connection upon an error.

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

diff --git a/scheme/ftpd/ftpd.scm b/scheme/ftpd/ftpd.scm
index 0bbb0f1..c142915 100644
--- a/scheme/ftpd/ftpd.scm
+++ b/scheme/ftpd/ftpd.scm
@@ -1305,6 +1305,7 @@
 
 (define (signal-error! code message)
   (replace-reply! code message)
+  (maybe-close-data-connection)
   (signal 'ftpd-error code message))
 
 (define (register-reply! code . messages)