--- a/hedgewars/GSHandlers.inc	Fri Nov 12 12:20:50 2010 -0500
+++ b/hedgewars/GSHandlers.inc	Fri Nov 12 12:21:40 2010 -0500
@@ -4043,7 +4043,7 @@
         end
     else
         begin
-        i:= round(Gear^.Health / 5);
+        i:= Gear^.Health div 5;
         if i <> Gear^.Tag then
             begin
             Gear^.Tag:= i;