Segmentation fault with GHCi 6.0

What is going on here?  Is it already fixed in 6.1?

# uname -a
Linux denebola 2.4.19-4GB #2 Mon Mar 31 10:57:24 CEST 2003 i686 unknown
# ghc DynExcep.hs -c -fglasgow-exts
# ghci
   ___         ___ _
  / _ \ /\  /\/ __(_)
 / /_\// /_/ / /  | |      GHC Interactive, version 6.0, for Haskell 98.
/ /_\\/ __  / /___| |      http://www.haskell.org/ghc/
\____/\/ /_/\____/|_|      Type :? for help.

Loading package base ... linking ... done.
GHC.Err.error :: forall a. [Char] -> a
Prelude> :module + DynExcep
Prelude DynExcep> dynExcep
Segmentation fault
module DynExcep where

import Data.Dynamic
import Control.Exception

data FallOutExcep = FallOutExcep {
   fallOutId :: Int,
   mess :: String
   } deriving (Typeable)

type BreakFn = (forall other . String -> other)

mkBreakFn :: Int -> BreakFn
mkBreakFn id mess = throwDyn (FallOutExcep {fallOutId = id,mess = mess})

dynExcep = mkBreakFn 1 ""