--- a/gameServer/Actions.hs	Wed Feb 02 22:14:00 2011 +0300
+++ b/gameServer/Actions.hs	Wed Feb 02 22:19:10 2011 +0300
@@ -366,7 +366,10 @@
     clHost <- client's host
     currentTime <- io $ getCurrentTime
     let msg = "Ban for " `B.append` (B.pack . show $ seconds) `B.append` "seconds (" `B.append` msg` B.append` ")"
-    processAction $ ModifyServerInfo (\s -> s{lastLogins = (clHost, (addUTCTime seconds $ currentTime, msg)) : lastLogins s})
+    mapM_ processAction [
+        ModifyServerInfo (\s -> s{lastLogins = (clHost, (addUTCTime seconds $ currentTime, msg)) : lastLogins s})
+        , KickClient banId
+        ]
 
 
 processAction (KickRoomClient kickId) = do