--- a/gameServer/HWProtoCore.hs	Tue Sep 03 00:05:38 2013 +0400
+++ b/gameServer/HWProtoCore.hs	Tue Sep 03 22:35:57 2013 +0400
@@ -50,7 +50,7 @@
             rnc <- liftM snd ask
             let chans = map (sendChan . client rnc) $ allClients rnc
             return [AnswerClients chans ["CHAT", "[global notice]", p] | isAdministrator cl]
-        h "WATCH" = return . QueryReplay
+        h "WATCH" f = return [QueryReplay f]
         h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]]
 
 handleCmd cmd = do