diff --git a/Data/BloomFilter.hs b/Data/BloomFilter.hs
--- a/Data/BloomFilter.hs
+++ b/Data/BloomFilter.hs
@@ -188,7 +188,7 @@
 {-# INLINE createB #-}
 createB hash numBits body = runST $ do
   mb <- newMB hash numBits
-  body mb
+  _ <- body mb
   unsafeFreezeMB mb
 
 -- | Create an empty Bloom filter.
@@ -267,7 +267,7 @@
 {-# INLINE modifyB #-}
 modifyB body ub = runST $ do
   mb <- thawMB ub
-  body mb
+  _ <- body mb
   unsafeFreezeMB mb
 
 -- | Create a new Bloom filter from an existing one, with the given
@@ -320,7 +320,7 @@
 
 -- | Query an immutable Bloom filter for non-membership.  If the value
 -- /is/ present, return @False@.  If the value is not present, there
--- is /still/ some possibility that @False@ will be returned.
+-- is /still/ some possibility that @True@ will be returned.
 notElemB :: a -> Bloom a -> Bool
 notElemB elt ub = any test (hashesU ub elt)
   where test (off :* bit) = (bitArrayB ub `unsafeAt` off) .&. (1 `shiftL` bit) == 0
diff --git a/Data/BloomFilter/Easy.hs b/Data/BloomFilter/Easy.hs
--- a/Data/BloomFilter/Easy.hs
+++ b/Data/BloomFilter/Easy.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE PatternSignatures #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 
 -- |
 -- Module: Data.BloomFilter.Easy
diff --git a/Data/BloomFilter/Util.hs b/Data/BloomFilter/Util.hs
--- a/Data/BloomFilter/Util.hs
+++ b/Data/BloomFilter/Util.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE MagicHash #-}
+{-# LANGUAGE MagicHash, TypeOperators #-}
 
 module Data.BloomFilter.Util
     (
diff --git a/bloomfilter.cabal b/bloomfilter.cabal
--- a/bloomfilter.cabal
+++ b/bloomfilter.cabal
@@ -1,5 +1,5 @@
 name:            bloomfilter
-version:         1.2.6
+version:         1.2.6.1
 license:         BSD3
 license-file:    LICENSE
 author:          Bryan O'Sullivan <bos@serpentine.com>
@@ -11,7 +11,6 @@
 stability:       provisional
 build-type:      Simple
 cabal-version:   >= 1.2
-tested-with:     GHC ==6.8.3
 extra-source-files: README cbits/lookup3.c cbits/lookup3.h
                  examples/Makefile examples/SpellChecker.hs examples/Words.hs