File guile-popen-test.patch of Package guile1

Index: test-suite/tests/popen.test
===================================================================
--- test-suite/tests/popen.test.orig	2010-12-13 19:24:40.000000000 +0200
+++ test-suite/tests/popen.test	2011-09-27 19:28:47.178045945 +0200
@@ -168,7 +168,7 @@
 	   (port (with-error-to-port (cdr c2p)
 		   (lambda ()
 		     (open-output-pipe
-		      "exec 0</dev/null; while true; do echo closed 1>&2; done")))))
+		      "exec 0</dev/null; echo closed 1>&2; sleep 3")))))
       (close-port (cdr c2p))   ;; write side
       (with-epipe
        (lambda ()