--- a/gameServer/HWProtoCore.hs	Mon May 10 15:31:09 2010 +0000
+++ b/gameServer/HWProtoCore.hs	Mon May 10 17:48:06 2010 +0000
@@ -25,7 +25,7 @@
         msg = if not $ null xs then head xs else ""
 
 {-
-handleCmd clID clients _ ["PONG"] =
+handleCmd ["PONG"] =
     if pingsQueue client == 0 then
         [ProtocolError "Protocol violation"]
     else
@@ -37,9 +37,9 @@
 handleCmd cmd = do
     (ci, irnc) <- ask
     if logonPassed (irnc `client` ci) then
-        handleCmd_NotEntered cmd
+        handleCmd_loggedin cmd
         else
-        handleCmd_loggedin cmd
+        handleCmd_NotEntered cmd
 
 {-
 handleCmd_loggedin clID clients rooms ["INFO", asknick] =