diff --git a/ghc/lib/std/PrelBase.lhs b/ghc/lib/std/PrelBase.lhs
index 6ef504423ddd49aa547695242e71ece212e81109..ba5741bce84fa2ae730c2c8b659dd33e1fc59d92 100644
--- a/ghc/lib/std/PrelBase.lhs
+++ b/ghc/lib/std/PrelBase.lhs
@@ -224,6 +224,8 @@ class  (Eq a, Show a, Eval a) => Num a  where
 \end{code}
 
 \begin{code}
+{-# SPECIALISE succ :: Int -> Int #-}
+{-# SPECIALISE pred :: Int -> Int #-}
 succ, pred              :: Enum a => a -> a
 succ                    =  toEnum . (+1) . fromEnum
 pred                    =  toEnum . (subtract 1) . fromEnum