--- a/hedgewars/CCHandlers.inc	Thu Oct 05 19:40:11 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Thu Oct 05 20:07:04 2006 +0000
@@ -86,7 +86,8 @@
 begin
 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true);
 val(id, CurrentTeam.Color, c);
-AdjustColor(CurrentTeam.Color)
+CurrentTeam.AdjColor:= CurrentTeam.Color;
+AdjustColor(CurrentTeam.AdjColor)
 end;
 
 procedure chAdd(var id: shortstring);