diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
index d3a4f9fbd..9ded6fe21 100644
--- a/test-suite/tests/00-socket.test
+++ b/test-suite/tests/00-socket.test
@@ -297,6 +297,7 @@
              ((-1)  ;; fork not available
                #f)
              ((0)   ;; the kid:  serve two connections and exit
+               (close-fdes 6)
               (let serve ((conn
                            (false-if-exception (accept server-socket)))
                           (count 1))
@@ -377,6 +378,7 @@
              ((-1)  ;; fork not available
                #f)
              ((0)   ;; the kid:  serve one connection and exit
+               (close-fdes 6)
               (let serve ((conn
                            (false-if-exception (accept server-socket)))
                           (count 0))
@@ -449,6 +451,7 @@
                 ((-1)
                  #f)
                 ((0)   ;; the kid: send MESSAGE and exit
+                 (close-fdes 6)
                  (exit
                   (false-if-exception
                    (let ((conn (car (accept server-socket)))
@@ -548,6 +551,7 @@
                ((-1)
                  #f)
                ((0)   ;; the kid:  serve two connections and exit
+                 (close-fdes 6)
                 (let serve ((conn
                              (false-if-exception (accept server-socket)))