Close stdin.

src/util-io.scm

@@ -74,6 +74,7 @@
 	 (display (car lines) stdin)
 	 (newline stdin)
 	 (loop (cdr lines))))
+     (close-output-port stdin)
      (let ((result (read-lines stdout)))
        (let-values (((pid exit-ok? exit/signal) (process-wait pid)))
 	 result))))