Fixed in 2.08?

[Alex Ferguson]

swift.ucc.ie:~/filter: cat cwd.hs

import Directory

main = getCurrentDirectory >> return ()
swift.ucc.ie:~/filter: ghc-2.05 cwd.hs
Module version unchanged at 1
swift.ucc.ie:~/filter: a.out
swift.ucc.ie:~/filter: ghc-2.07 cwd.hs
Module version unchanged at 1
swift.ucc.ie:~/filter: a.out
Segmentation fault caught, address = 00000000
Abort