diff --git a/Network/SimpleServer.hs b/Network/SimpleServer.hs
--- a/Network/SimpleServer.hs
+++ b/Network/SimpleServer.hs
@@ -235,8 +235,9 @@
   tid <- newEmptyMVar
   timestamp <- newEmptyMVar
   table <- HT.new
-  let lookup = safeLookup (lock server) table
-      modify = safeModify (lock server) table
+  lock <- Lock.new
+  let lookup = safeLookup lock table
+      modify = safeModify lock table
   return $ ClientConn id lookup modify handle host pid queue dead' timestamp tid server
 
 safeLookup :: Lock.Lock -> UserTable -> (String -> IO String)
diff --git a/simple-server.cabal b/simple-server.cabal
--- a/simple-server.cabal
+++ b/simple-server.cabal
@@ -1,5 +1,5 @@
 Name:              simple-server
-Version:       	   0.0.2
+Version:       	   0.0.3
 License:           GPL
 License-File:      LICENSE
 Author:	           Joseph Collard