--- a/gameServer/ServerCore.hs	Sun May 24 19:49:10 2009 +0000
+++ b/gameServer/ServerCore.hs	Mon May 25 15:24:27 2009 +0000
@@ -46,7 +46,7 @@
 					debugM "Clients" "Message from dead client"
 					return (serverInfo, clients, rooms)
 
-			ClientAccountInfo clID info ->
+			ClientAccountInfo (clID, info) ->
 				if clID `IntMap.member` clients then
 					liftM firstAway $ processAction
 						(clID, serverInfo, clients, rooms)