diff --git a/Database/PureCDB.hs b/Database/PureCDB.hs
--- a/Database/PureCDB.hs
+++ b/Database/PureCDB.hs
@@ -29,8 +29,9 @@
 -- > getIt :: IO [ByteString]
 -- > getIt = do
 -- >       f <- openCDB "foo.cdb"
--- >       getBS f (B.pack "foo")
+-- >       bs <- getBS f (B.pack "foo")
 -- >       closeCDB "foo.cdb"
+-- >       return bs
 -- >
 --
 -- @getIt@ returns [ \"bar\", \"baz\" ] in unspecified order.
diff --git a/pure-cdb.cabal b/pure-cdb.cabal
--- a/pure-cdb.cabal
+++ b/pure-cdb.cabal
@@ -1,5 +1,5 @@
 Name:           pure-cdb
-Version:        0.1
+Version:        0.1.1
 License:        BSD3
 License-File:   COPYING
 Category:       Database
@@ -43,12 +43,3 @@
     hs-source-dirs:  t
     main-is:         Test.hs
     Default-Language: Haskell2010
-
-test-suite Words
-    type:            exitcode-stdio-1.0
-    build-depends:   base, pure-cdb, Unixutils, bytestring
-    ghc-options:     -Wall
-    hs-source-dirs:  t
-    main-is:         Words.hs
-    Default-Language: Haskell2010
-
diff --git a/t/Words.hs b/t/Words.hs
deleted file mode 100644
--- a/t/Words.hs
+++ /dev/null
@@ -1,10 +0,0 @@
-module Main (main) where
-
-import Database.PureCDB
-import qualified Data.ByteString.Char8 as B
-import System.Unix.Directory (withTemporaryDirectory)
-
-main :: IO ()
-main = withTemporaryDirectory "/tmp/pure_cdb_XXXXXXX" $ \td -> do
-    ls <- B.lines `fmap` B.readFile "/usr/share/dict/words"
-    makeCDB (mapM_ (\s -> addBS s s) ls) (td ++ "/j.out")