diff --git a/Pup-Events-Server.cabal b/Pup-Events-Server.cabal
--- a/Pup-Events-Server.cabal
+++ b/Pup-Events-Server.cabal
@@ -1,5 +1,5 @@
 name:                   Pup-Events-Server
-version:                1.1
+version:                1.1.1
 synopsis:               A networked event handling framework for hooking
                         into other programs.
 description:            Pup-Events is a networking enabled event handling
diff --git a/PupEventsServer.hs b/PupEventsServer.hs
--- a/PupEventsServer.hs
+++ b/PupEventsServer.hs
@@ -10,6 +10,7 @@
 import Control.Concurrent.STM.TChan (tryReadTChan)
 import Control.Concurrent
 import Control.Monad
+import qualified Control.Exception as C
 import Text.Parsec
 import Network.Socket
 import System.IO
@@ -55,8 +56,13 @@
                     Nothing -> retry
                     Just event -> return event
         event' <- lookupHandler event event
-        hPutStr handle (lookupUnHandler event' event')
-        hFlush handle
+        C.catch (
+            do  hPutStr handle (lookupUnHandler event' event')
+                hFlush handle
+            ) (\e -> do let err = show (e :: C.IOException)
+                        hPutStr stderr ("Client disconnected")
+                        return ())
+
 
 -- accept a connection and fork a new thread to handle receiving events from it
 -- after the connection is accepted, create a new channel for the dispatcher to