import Outputable
import Data.Array
+import Data.Word ( Word32 )
\end{code}
%************************************************************************
get bh = do
i <- get bh
- return $! (ud_symtab (getUserData bh) ! i)
+ return $! (ud_symtab (getUserData bh) ! fromIntegral (i::Word32))
\end{code}
%************************************************************************