diff -r 823caba67738 -r d99934a827f0 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Wed May 09 17:33:25 2012 -0400
+++ b/hedgewars/GSHandlers.inc	Thu May 10 11:12:06 2012 +0400
@@ -3164,7 +3164,7 @@
     hogs := GearsNear(Gear^.X, Gear^.Y, gtHedgehog, Gear^.Radius);
     if Length(hogs) > 0 then
         begin
-        for i:= 0 to High(hogs) do
+        for i:= 0 to Length(hogs) - 1 do
             begin
             if hogs[i] <> CurrentHedgehog^.Gear then
                 begin
@@ -5079,7 +5079,7 @@
     else 
         begin
         // now really resurrect the hogs with the hp saved in the graves
-        for i:= 0 to High(graves) do
+        for i:= 0 to Length(graves) - 1 do
             if graves[i]^.Health > 0 then
                 begin
                 resgear := AddGear(hwRound(graves[i]^.X), hwRound(graves[i]^.Y), gtHedgehog, gstWait, _0, _0, 0);
@@ -5116,7 +5116,7 @@
 
     if Length(graves) > 0 then
         begin
-        for i:= 0 to High(graves) do
+        for i:= 0 to Length(graves) - 1 do
             begin
             PHedgehog(graves[i]^.Hedgehog)^.Gear := nil;
             graves[i]^.Health := 0;