--- a/gameServer/Actions.hs	Mon Jul 19 23:31:08 2010 +0400
+++ b/gameServer/Actions.hs	Mon Jul 19 23:38:18 2010 +0400
@@ -416,8 +416,8 @@
 
 processAction PingAll = do
     rnc <- gets roomsClients
+    liftIO (allClientsM rnc) >>= mapM_ (kickTimeouted rnc)
     cis <- liftIO $ allClientsM rnc
-    mapM_ (kickTimeouted rnc) $ cis
     chans <- liftIO $ mapM (client'sM rnc sendChan) cis
     liftIO $ mapM_ (modifyClient rnc (\cl -> cl{pingsQueue = pingsQueue cl + 1})) cis
     processAction $ AnswerClients chans ["PING"]