* popen.scm (open-process): after forking, close all ports except

the end of the pipe to the parent.  otherwise move->fdes and
	the exec'd program and the exit handlers can interfere with file
	descriptors still in use in parent ports.

ice-9/popen.scm

@@ -23,9 +23,7 @@
       (cond ((= pid 0)
 	     ;; child
 	     (set-batch-mode?! #t)
-	     (if reading
-		 (close-port (car p))
-		 (close-port (cdr p)))
+	     (close-all-ports-except (if reading (cdr p) (car p)))
 	     (move->fdes (if reading (cdr p) (car p))
 			 (if reading 1 0))
 	     (apply execlp prog prog args))