diff --git a/GHC/Integer.lhs b/GHC/Integer.lhs
index 437906657b7d49eb1b1a62e6b4e51826969aeba8..a3ec0f79176ef2655d5225a8c9875032b32ff8c4 100644
--- a/GHC/Integer.lhs
+++ b/GHC/Integer.lhs
@@ -142,8 +142,8 @@ int64ToInteger i = if ((i `leInt64#` intToInt64# 0x7FFFFFFF#) &&
                    else case int64ToInteger# i of
                         (# s, d #) -> J# s d
     where -- XXX Move the (&&) definition below us?
-          True && True = True
-          _ && _ = False
+          True  && x = x
+          False && _ = False
 #endif
 
 toInt# :: Integer -> Int#