diff -r 93aa09004d36 -r 5d58fce48b1d gameServer/HWProtoCore.hs
--- a/gameServer/HWProtoCore.hs	Wed Oct 03 03:24:03 2018 +0200
+++ b/gameServer/HWProtoCore.hs	Thu Oct 04 14:18:38 2018 +0200
@@ -94,8 +94,6 @@
                      | otherwise = handleCmd ["VOTE", ""]
         h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"]
                       | otherwise = handleCmd ["VOTE", "", "FORCE"]
-        h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg]
-        h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"]
         h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n]
         h "INFO" n | not $ B.null n = handleCmd ["INFO", n]
         h "HELP" _ = handleCmd ["HELP"]