diff --git a/Network/Wai/Handler/Warp.hs b/Network/Wai/Handler/Warp.hs
--- a/Network/Wai/Handler/Warp.hs
+++ b/Network/Wai/Handler/Warp.hs
@@ -61,7 +61,7 @@
 import qualified Network.Socket.ByteString as Sock
 import Control.Exception
     ( bracket, finally, Exception, SomeException, catch
-    , fromException
+    , fromException, AsyncException (ThreadKilled)
     )
 import Control.Concurrent (forkIO)
 import qualified Data.Char as C
@@ -437,12 +437,17 @@
     , settingsOnException = \e ->
         case fromException e of
             Just x -> go x
-            Nothing -> hPutStrLn stderr $ show e
+            Nothing ->
+                if go' $ fromException e
+                    then hPutStrLn stderr $ show e
+                    else return ()
     , settingsTimeout = 30
     }
   where
     go :: InvalidRequest -> IO ()
     go _ = return ()
+    go' (Just ThreadKilled) = False
+    go' _ = True
 
 takeHeaders :: E.Iteratee ByteString IO [ByteString]
 takeHeaders = do
diff --git a/warp.cabal b/warp.cabal
--- a/warp.cabal
+++ b/warp.cabal
@@ -1,5 +1,5 @@
 Name:                warp
-Version:             0.4.1
+Version:             0.4.1.1
 Synopsis:            A fast, light-weight web server for WAI applications.
 License:             BSD3
 License-file:        LICENSE