--- a/hedgewars/CCHandlers.inc	Sun Jan 27 15:07:31 2008 +0000
+++ b/hedgewars/CCHandlers.inc	Sun Jan 27 16:49:11 2008 +0000
@@ -56,6 +56,8 @@
    val(s, Color);
    TryDo(Color <> 0, 'Error: black team color', true);
 
+   Color:= Color or $FF000000;
+
    AddTeam(Color);
    CurrentTeam^.TeamName:= ts;
    if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true
@@ -79,7 +81,7 @@
 
 procedure chFort(var s: shortstring);
 begin
-if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/grave"', true);
+if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/fort"', true);
 if s[1]='"' then Delete(s, 1, 1);
 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);
 CurrentTeam^.FortName:= s