Index: process.scm
==================================================================
--- process.scm
+++ process.scm
@@ -74,14 +74,14 @@
 	       (set! result (append result (list errstr)))))
        (if (not (eof-object? curr))
 	   (loop (read-line fh)
 		 (append result (list curr)))
 	   (begin
-	     ;(close-input-port fh)
-	     ;(close-input-port fhe)
-	     ;(close-output-port fho)
              (let-values (((anotherpid normalexit? exitstatus)  (process-wait pid)))
+	     (close-input-port fh)
+	     (close-input-port fhe)
+	     (close-output-port fho)
                (list result (if normalexit? exitstatus -1))))))))
 
 (define (process:cmd-run-proc-each-line cmd proc . params)
   ;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
   (handle-exceptions