diff --git a/Utility/Bloom.hs b/Utility/Bloom.hs
index 668901f76f..67841225c1 100644
--- a/Utility/Bloom.hs
+++ b/Utility/Bloom.hs
@@ -53,7 +53,7 @@ notElemB :: a -> Bloom a -> Bool
 notElemB = Bloom.notElemB
 
 elemB :: a -> Bloom a -> Bool
-elemB = Bloom.elem
+elemB = Bloom.elemB
 
 newMB :: (a -> [Bloom.Hash]) -> Int -> ST s (Bloom.MBloom s a)
 newMB = Bloom.newMB