Comment 3 for bug 425199

In SBCL 1.0.34.0.debian on Linux 2.6.30 following also hangs, very probably for same reasons:

(let* ((proc (sb-ext:run-program "cat" '("file-bigger-than-140000-bytes")
         :search t :output :stream))
    (pipe-stream (sb-ext:process-output proc)))
      (format t "~A~%" (read-line pipe-stream)))

By strace, the 'cat' process is hanging on 'write' call. Only when I kill the 'cat' process, sbcl unblocks and continues execution