--- a/gameServer/Votes.hs	Tue Jan 13 23:37:07 2015 +0300
+++ b/gameServer/Votes.hs	Wed Jan 14 11:47:50 2015 +0300
@@ -116,7 +116,7 @@
         chans <- roomClientsChans
         let answers = concatMap (\t -> 
                 [ModifyRoom $ modifyTeam t{hhnum = h}
-                , AnswerClients chans ["HHNUM", teamname t, showB h]]
+                , AnswerClients chans ["HH_NUM", teamname t, showB h]]
                 )
                 $
                 if isJust $ gameInfo rm then