--- a/hedgewars/uRender.pas	Thu Dec 02 19:51:30 2010 -0500
+++ b/hedgewars/uRender.pas	Thu Dec 02 20:29:46 2010 -0500
@@ -444,7 +444,7 @@
 
 procedure Tint(c: Longword); inline;
 begin
-Tint(((c shr 16) and $FF), ((c shr 8) and $FF), (c and $FF), $FF);
+Tint(((c shr 24) and $FF), ((c shr 16) and $FF), (c shr 8) and $FF, (c and $FF))
 end;
 
 end.