diff --git a/server.lhs b/server.lhs
--- a/server.lhs
+++ b/server.lhs
@@ -13,7 +13,7 @@
 > import Data.Text (Text)
 > import Control.Exception (fromException, handle)
 > import Control.Monad (forM_, forever)
-> import Control.Concurrent (MVar, newMVar, modifyMVar_, readMVar)
+> import Control.Concurrent (MVar, newMVar, modifyMVar_, readMVar, forkIO)
 > import Control.Monad.IO.Class (liftIO)
 > import qualified Data.Text as T
 > import qualified Data.Text.IO as T
@@ -66,7 +66,7 @@
 > broadcast :: Text -> ServerState -> IO ()
 > broadcast message clients = do
 >     T.putStrLn message
->     forM_ clients $ \(_, conn) -> WS.sendTextData conn message
+>     forM_ clients $ \(_, conn) -> forkIO $ WS.sendTextData conn message
 
 The main function first creates a new state for the server, then spawns the
 actual server. For this purpose, we use the simple server provided by
diff --git a/wai-websockets.cabal b/wai-websockets.cabal
--- a/wai-websockets.cabal
+++ b/wai-websockets.cabal
@@ -1,5 +1,5 @@
 Name:                wai-websockets
-Version:             3.0.0
+Version:             3.0.0.1
 Synopsis:            Provide a bridge betweeen WAI and the websockets package.
 License:             MIT
 License-file:        LICENSE