diff --git a/Network/WebSockets.hs b/Network/WebSockets.hs
--- a/Network/WebSockets.hs
+++ b/Network/WebSockets.hs
@@ -10,7 +10,7 @@
 
 * Send and receive strict bytestrings with 'putFrame' and 'getFrame'.
 
-And here's a short, complete example of a server that accepts clients, greets them with a welcome message and replies to all messages by echoing them back with an appended meow:
+And here's a short example of a server that accepts clients, greets them with a welcome message and replies to all messages by echoing them back with an appended meow:
 
 @
 import Network.WebSockets ('shakeHands', 'getFrame', 'putFrame')
@@ -24,7 +24,7 @@
 main :: IO ()
 main = withSocketsDo $ do
   socket <- listenOn $ PortNumber 12345
-  putStrLn \"Listening on 0.0.0.0:12345.\"
+  putStrLn \"Listening on port 12345.\"
   forever $ do
     (h, _, _) <- accept socket
     forkIO $ talkToClient h
@@ -35,6 +35,7 @@
   case request of
     Left error -> putStrLn error >> hClose h
     Right req -> do
+      putStrLn \"Shook hands with client. Commence meowing.\"
       'putFrame' h . fromString $ \"&#28404;&#27700;&#20043;&#24681;&#24403;&#20197;&#28044;&#27849;&#30456;&#25253;\<br\>\" ++ show req
       forever $ do
         msg <- 'getFrame' h
diff --git a/websockets.cabal b/websockets.cabal
--- a/websockets.cabal
+++ b/websockets.cabal
@@ -1,5 +1,5 @@
 Name:           websockets
-Version:        0.1.2.2
+Version:        0.1.2.3
 
 Cabal-version:  >=1.6
 
@@ -26,6 +26,6 @@
 
 Library
   Exposed-Modules: Network.WebSockets
-  Build-depends: pureMD5 >=2.1, network >=2.2.3, base ==4.*, 
+  Build-depends: pureMD5 >=2.1, network >=2.2.1.7, base ==4.*, 
                  bytestring >=0.9, binary >=0.5, containers >=0.3