--- a/hedgewars/uVisualGears.pas	Tue May 04 16:30:41 2010 +0000
+++ b/hedgewars/uVisualGears.pas	Tue May 04 16:31:15 2010 +0000
@@ -375,8 +375,8 @@
             with thexchar[i] do
                 begin
                 {$WARNINGS OFF}
-                team^.DrawHealthY:= ny + dy * LongInt(Gear^.Timer div 640);
-                team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * LongInt(Gear^.Timer div cSorterWorkTime);
+                team^.DrawHealthY:= ny + dy * LongInt(Gear^.Timer) div 640;
+                team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * LongInt(Gear^.Timer) div cSorterWorkTime;
                 {$WARNINGS ON}
                 end;