@@ -130,6 +130,7 @@ unixFilterIO writer reader programName args input = do
130 -- Read from stderr
130 -- Read from stderr
131 _ <- forkIO $ do
131 _ <- forkIO $ do
132 err <- hGetContents errh
132 err <- hGetContents errh
133+ _ <- deepseq err (return err)
133 hClose errh
134 hClose errh
134 writeIORef errRef err
135 writeIORef errRef err
135 putMVar lock ()
136 putMVar lock ()