bug in Hugs98

[Anton Moscal]

Hello!

I try to run the following script (which copies stdin to stdout):

=====================
-- #!/usr/local/bin/runhugs
main =
   catch 
        (do c <- getChar; putChar c; main)
        (\e -> (do putChar '$'; putChar '\n'; return ()))
=====================
by the command:

runhugs bug.hs <bug.hs 

result was very strange: each letter outputted twice, and program
was not terminated. If I compile this program by ghc or nhc98 all 
works good.

Regargs, 
Anton Moscal