diff --git a/src/GHC/Int/Compat.hs b/src/GHC/Int/Compat.hs
--- a/src/GHC/Int/Compat.hs
+++ b/src/GHC/Int/Compat.hs
@@ -25,7 +25,7 @@
 pattern I8# x <- (W.I8# (int8ToInt# -> x)) where
   I8# x = W.I8# (intToInt8# x)
 #else
-pattern I8# = I8#
+pattern I8# x = W.I8# x
 #endif
 
 pattern I16# :: Int# -> Int16
@@ -33,7 +33,7 @@
 pattern I16# x <- (W.I16# (int16ToInt# -> x)) where
   I16# x = W.I16# (intToInt16# x)
 #else
-pattern I16# = I16#
+pattern I16# x = W.I16# x
 #endif
 
 pattern I32# :: Int# -> Int32
@@ -41,5 +41,5 @@
 pattern I32# x <- (W.I32# (int32ToInt# -> x)) where
   I32# x = W.I32# (intToInt32# x)
 #else
-pattern I32# = I32#
+pattern I32# x = W.I32# x
 #endif
diff --git a/src/GHC/Word/Compat.hs b/src/GHC/Word/Compat.hs
--- a/src/GHC/Word/Compat.hs
+++ b/src/GHC/Word/Compat.hs
@@ -18,10 +18,12 @@
     byteSwap64,
 
     -- * Bit reversal
+#if MIN_VERSION_base(4,12,0)
     bitReverse8,
     bitReverse16,
     bitReverse32,
     bitReverse64,
+#endif
 
     -- * Equality operators
     -- | See GHC.Classes#matching_overloaded_methods_in_rules
@@ -39,7 +41,7 @@
 pattern W8# x <- (W.W8# (word8ToWord# -> x)) where
   W8# x = W.W8# (wordToWord8# x)
 #else
-pattern W8# = W8#
+pattern W8# x = W.W8# x
 #endif
 
 pattern W16# :: Word# -> Word16
@@ -47,7 +49,7 @@
 pattern W16# x <- (W.W16# (word16ToWord# -> x)) where
   W16# x = W.W16# (wordToWord16# x)
 #else
-pattern W16# = W16#
+pattern W16# x = W.W16# x
 #endif
 
 pattern W32# :: Word# -> Word32
@@ -55,5 +57,5 @@
 pattern W32# x <- (W.W32# (word32ToWord# -> x)) where
   W32# x = W.W32# (wordToWord32# x)
 #else
-pattern W32# = W32#
+pattern W32# x = W.W32# x
 #endif
diff --git a/word-compat.cabal b/word-compat.cabal
--- a/word-compat.cabal
+++ b/word-compat.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               word-compat
-version:            0.0
+version:            0.0.1
 
 -- A short (one-line) description of the package.
 synopsis: Compatibility shim for the Int/Word internal change in GHC 9.2