diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index c59b9375e8bd562620d04534334ee8f08ab4d85f..dfad21008e5dcb8821f089f5a99a7fb90e20726b 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -64,6 +64,10 @@ import Maybes		( maybeToBool )
 import Bag
 import Util		( isIn, lengthExceeds )
 import Outputable
+
+#if __GLASGOW_HASKELL__ >= 404
+import GlaExts		( fromInt )
+#endif
 \end{code}
 
 %************************************************************************