--- a/gameServer/HWProtoInRoomState.hs	Sat Jun 26 16:58:19 2010 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Sun Jun 27 21:06:41 2010 +0400
@@ -48,7 +48,7 @@
         clChan <- thisClientChans
         othersChans <- roomOthersChans
         return $
-            if null . drop 5 $ teams r then
+            if not . null . drop 5 $ teams r then
                 [Warning "too many teams"]
             else if canAddNumber r <= 0 then
                 [Warning "too many hedgehogs"]
@@ -73,6 +73,7 @@
                            Just (i, t) | B.null t -> fromIntegral i
                            otherwise -> 0
         hhsList [] = []
+        hhsList [_] = error "Hedgehogs list with odd elements number"
         hhsList (n:h:hhs) = HedgehogInfo n h : hhsList hhs
         newTeamHHNum r = min 4 (canAddNumber r)