diff --git a/GHC/Integer.hs b/GHC/Integer.hs
index 7c21dcaffad2d67ecf7fa26169257a2fab87a874..61654f0d69679d568b4a1e16d590651ce0ce1673 100644
--- a/GHC/Integer.hs
+++ b/GHC/Integer.hs
@@ -21,7 +21,7 @@
 
 module GHC.Integer (
     Integer,
-    smallInteger, wordToInteger, integerToWord, toInt#,
+    smallInteger, wordToInteger, integerToWord, integerToInt,
 #if WORD_SIZE_IN_BITS < 64
     integerToWord64, word64ToInteger,
     integerToInt64, int64ToInteger,
@@ -72,8 +72,8 @@ integerToWord (Negative (Some w _)) = 0## `minusWord#` w
 -- Must be Naught by the invariant:
 integerToWord _ = 0##
 
-toInt# :: Integer -> Int#
-toInt# i = word2Int# (integerToWord i)
+integerToInt :: Integer -> Int#
+integerToInt i = word2Int# (integerToWord i)
 
 #if WORD_SIZE_IN_BITS == 64
 -- Nothing