diff --git a/Network/Wai/Handler/Warp/Response.hs b/Network/Wai/Handler/Warp/Response.hs
--- a/Network/Wai/Handler/Warp/Response.hs
+++ b/Network/Wai/Handler/Warp/Response.hs
@@ -36,11 +36,8 @@
 
 ----------------------------------------------------------------
 
-sendResponse cleaner req conn (ResponseFile s hs path mpart) = do
-    liftIO $ putStrLn "sendResponse1"
-    x <- headerAndLength
-    liftIO $ print ("sendResponse2", x)
-    sendResponse' x
+sendResponse cleaner req conn (ResponseFile s hs path mpart) =
+    headerAndLength >>= sendResponse'
   where
     th = threadHandle cleaner
     headerAndLength = case (readInt <$> checkLength hs, mpart) of
@@ -54,14 +51,10 @@
 
     sendResponse' (Right (lengthyHeaders, cl))
       | hasBody s req = liftIO $ do
-          putStrLn "hasBody"
           connSendFile conn path beg end (T.tickle th) [lheader] cleaner
-          putStrLn "finished connSendFile"
           T.tickle th
-          print ("tickled", isPersist)
           return isPersist
       | otherwise = liftIO $ do
-          putStrLn "otherwise"
           connSendAll conn $ composeHeader version s hs
           T.tickle th
           return isPersist -- FIXME isKeepAlive?
diff --git a/warp.cabal b/warp.cabal
--- a/warp.cabal
+++ b/warp.cabal
@@ -1,5 +1,5 @@
 Name:                warp
-Version:             1.3.4
+Version:             1.3.4.1
 Synopsis:            A fast, light-weight web server for WAI applications.
 License:             MIT
 License-file:        LICENSE