--- a/hedgewars/CCHandlers.inc	Sun Nov 15 19:43:58 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Sun Nov 15 22:26:42 2009 +0000
@@ -74,6 +74,10 @@
 procedure chAddTeam(var s: shortstring);
 var Color: Longword;
     ts: shortstring;
+{$IFNDEF ENDIAN_LITTLE}
+    tmpA, tmpR, tmpG, tmpB: byte;
+    tmpColor: LongWord = 0;
+{$ENDIF}
 begin
 if isDeveloperMode then
    begin
@@ -81,8 +85,9 @@
    val(s, Color);
    TryDo(Color <> 0, 'Error: black team color', true);
 
-   Color:= Color or AMask;
-
+   // color is always in ARGB so the mask must be constant
+   Color:= Color or $FF000000;
+ 	
    AddTeam(Color);
    CurrentTeam^.TeamName:= ts;
    if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true;