diff --git a/Network-NineP.cabal b/Network-NineP.cabal
--- a/Network-NineP.cabal
+++ b/Network-NineP.cabal
@@ -1,5 +1,5 @@
 Name:                Network-NineP
-Version:             0.4.7
+Version:             0.4.7.1
 Description:         A library providing one with a somewhat higher level interface to 9P2000 protocol than existing implementations. Designed to facilitate rapid development of synthetic filesystems.
 Synopsis:            High-level abstraction over 9P protocol
 Maintainer:          Sergey Alirzaev <zl29ah@gmail.com>
@@ -18,7 +18,7 @@
 Source-repository this
   type:              git
   location:          https://github.com/l29ah/Network-NineP.git
-  tag:               0.4.7
+  tag:               0.4.7.1
 
 Library
   Build-Depends:
@@ -26,7 +26,7 @@
     bytestring >= 0.9.2.1 && < 0.11,
     containers >= 0.4.2.1 && < 0.7,
     NineP >= 0.0.2 && < 0.1,
-    network >= 3.0 && < 3.1,
+    network >= 3.0 && < 3.2,
     network-bsd >= 2.8 && < 2.9,
     binary >= 0.5.1.0 && < 0.9,
     mtl >= 2.1.2 && < 2.3,
diff --git a/Network/NineP/Internal/Msg.hs b/Network/NineP/Internal/Msg.hs
--- a/Network/NineP/Internal/Msg.hs
+++ b/Network/NineP/Internal/Msg.hs
@@ -68,6 +68,7 @@
 rversion (Msg _ t (Tversion s v)) = do
 	let ver = readVersion v
 	modifyM_ (\st -> st { msize = s, protoVersion = ver })
+	-- FIXME clunk everything and abort all outstanding I/O
 	return $ return $ Msg TRversion t $ Rversion s $ show ver
 
 rattach (Msg _ t (Tattach fid _ _ _)) = do
diff --git a/Network/NineP/Server.hs b/Network/NineP/Server.hs
--- a/Network/NineP/Server.hs
+++ b/Network/NineP/Server.hs
@@ -111,7 +111,7 @@
 			mp <- liftIO $ try $ recvPacket h
 			case mp of
 				Left (e :: SomeException) -> do
-					return $ putStrLn $ show e
+					pure $ errorM "Network.NineP.Server" $ show e
 					return True
 				Right p -> do
 					forkM $ handleMsg say p