--- a/hedgewars/uWorld.pas	Sun Jan 02 19:30:16 2011 +0100
+++ b/hedgewars/uWorld.pas	Mon Jan 03 10:45:50 2011 -0500
@@ -733,7 +733,7 @@
       highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
 
       if highlight then
-         Tint(Clan^.Color);
+         Tint(Clan^.Color shl 8 or $FF);
 
       // draw name
       DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);