--- a/gameServer/CommandHelp.hs	Sat Aug 25 19:07:17 2018 +0200
+++ b/gameServer/CommandHelp.hs	Sat Aug 25 19:23:19 2018 +0200
@@ -23,6 +23,7 @@
 
 import CoreTypes
 import Utils
+import Consts
 
 -- List and documentation of chat commands
 
@@ -99,7 +100,7 @@
 
 -- Helper functions for chat command handler
 cmdHelpActionEntry :: [ClientChan] -> B.ByteString -> Action
-cmdHelpActionEntry chan msg = AnswerClients chan [ "CHAT", "[server]", msg ]
+cmdHelpActionEntry chan msg = AnswerClients chan [ "CHAT", nickServer, msg ]
 
 cmdHelpActionList :: [ClientChan] -> [B.ByteString] -> [Action]
 cmdHelpActionList chan list = map (cmdHelpActionEntry chan) list