diff -r a6e733ad0366 -r a51f5f88f3cf gameServer/Utils.hs
--- a/gameServer/Utils.hs	Wed Aug 12 12:44:42 2009 +0000
+++ b/gameServer/Utils.hs	Wed Aug 12 12:48:57 2009 +0000
@@ -39,9 +39,9 @@
 	where
 		decoded = fromEngineMsg msg
 		test Nothing = False
-		test (Just "") = False
 		test (Just (m:ms)) = m `Set.member` legalMessages
-		legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghb12345" ++ slotMessages
+		test _ = False
+		legalMessages = Set.fromList $ "M#+RrUuDdZzAaSjJ,sFNpPwtghb12345" ++ slotMessages
 		slotMessages = ['\128', '\129', '\130', '\131', '\132', '\133', '\134', '\135', '\136', '\137', '\138']
 
 maybeRead :: Read a => String -> Maybe a