diff --git a/src/util-io.scm b/src/util-io.scm
index 55a5a87..2f44643 100644
--- a/src/util-io.scm
+++ b/src/util-io.scm
@@ -96,6 +96,8 @@
      (close-output-port stdin)
      (let ((result (read-lines stdout)))
        (let-values (((pid exit-ok? exit/signal) (process-wait pid)))
+	 (close-input-port stdout)
+	 (close-input-port stderr)
 	 result))))
 
  )