1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/Address.hs b/src/Network/Address.hs
index e4ec09b4..0fbd191a 100644
--- a/src/Network/Address.hs
+++ b/src/Network/Address.hs
@@ -566,7 +566,7 @@ testIdBit (NodeId bs) i
 -}
 
 testIdBit :: FiniteBits bs => bs -> Word -> Bool
-testIdBit bs i = testBit bs (fromIntegral (finiteBitSize bs - fromIntegral i))
+testIdBit bs i = testBit bs (fromIntegral (finiteBitSize bs - 1 - fromIntegral i))
 {-# INLINE testIdBit #-}
 
 ------------------------------------------------------------------------