runInteractiveProcess, confused

Hi, When I run the following line in ghci: Prelude System.Process Control.Concurrent System.IO> do { (inp, out, err, ph) <- runInteractiveProcess "cat" [] Nothing Nothing; forkIO (do hPutStr inp "this\nis\na\ntest\n"; hClose inp); waitForProcess ph } ... it doesn't terminate. I'm following the example in the System.Process documentation. But I would think that since I close 'inp', "cat" would terminate. Also, I don't see the expected output. Frederik -- http://ofb.net/~frederik/