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)