diff --git a/Basement/Bits.hs b/Basement/Bits.hs
--- a/Basement/Bits.hs
+++ b/Basement/Bits.hs
@@ -338,11 +338,12 @@
     countLeadingZeros (W# w#) = CountOf $ wordToInt (W# (clz64# w#))
     countTrailingZeros (W# w#) = CountOf $ wordToInt (W# (ctz64# w#))
 #else
+instance FiniteBitsOps Word where
     numberOfBits _ = 32
     rotateL (W# x#) (CountOf (I# i#))
         | isTrue# (i'# ==# 0#) = W# x#
-        | otherwise  = W# (narrow32Word# ((x# `uncheckedShiftL#` i'#) `or#`
-                                          (x# `uncheckedShiftRL#` (32# -# i'#))))
+        | otherwise  = W# ((x# `uncheckedShiftL#` i'#) `or#`
+                           (x# `uncheckedShiftRL#` (32# -# i'#)))
       where
         !i'# = word2Int# (int2Word# i# `and#` 31##)
     rotateR (W# x#) (CountOf (I# i#))
diff --git a/basement.cabal b/basement.cabal
--- a/basement.cabal
+++ b/basement.cabal
@@ -1,5 +1,5 @@
 name:                basement
-version:             0.0.9
+version:             0.0.10
 synopsis:            Foundation scrap box of array & string
 description:         Foundation most basic primitives without any dependencies
 license:             BSD3