diff --git a/Database/MongoDB/Queue.hs b/Database/MongoDB/Queue.hs
--- a/Database/MongoDB/Queue.hs
+++ b/Database/MongoDB/Queue.hs
@@ -153,15 +153,12 @@
         _ -> liftIO $ thowIO e
       )
     -}
-    liftIO $ print origDoc
     eDoc <- findAndModify (select [_id := (valueAt _id origDoc)] queueCollection) {
         sort = ["$natural" =: (-1 :: Int)]
       } [ "$set" =: [handled =: True] ]
     case eDoc of
       Left err  -> liftIO $ throwIO $ FindAndModifyError err
-      Right doc -> do
-        liftIO $ print doc
-        return (at dataField doc)
+      Right doc -> return (at dataField doc)
 
 {-
 -- | Perform the action every time there is a new message.
diff --git a/mongodb-queue.cabal b/mongodb-queue.cabal
--- a/mongodb-queue.cabal
+++ b/mongodb-queue.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                mongodb-queue
-version:             0.2.0.1
+version:             0.2.0.2
 synopsis:            a queue using MongoDB
 -- description:         
 homepage:            https://github.com/gregwebs/haskell-mongodb-queue