diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs
index 054da423f63120c63963630585e2d36bab44e81a..2779a597cd1d7e0090728ccaa1635445b82c30d6 100644
--- a/ghc/compiler/ghci/ByteCodeLink.lhs
+++ b/ghc/compiler/ghci/ByteCodeLink.lhs
@@ -38,7 +38,7 @@ import Control.Monad	( when, foldM )
 import Control.Monad.ST	( runST )
 import Data.Array.IArray ( array )
 
-import GHC.Word		( Word )
+import GHC.Word		( Word(..) )
 import Data.Array.MArray ( MArray, newArray_, readArray, writeArray )
 import Data.Array.ST	( castSTUArray )
 import Data.Array.Base	( UArray(..) )