--- a/hedgewars/uWorld.pas	Fri May 07 09:57:12 2010 +0000
+++ b/hedgewars/uWorld.pas	Fri May 07 10:54:07 2010 +0000
@@ -758,7 +758,7 @@
       highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
       
       if highlight then
-         Tint(((Clan^.Color shr 16) and $FF), ((Clan^.Color shr 8) and $FF), (Clan^.Color and $FF), $FF);
+         Tint(Clan^.Color);
 
       // draw name
       DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);