diff -r 517be8dc5b76 -r 16322d14f068 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Dec 04 15:28:31 2005 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Dec 04 19:06:56 2005 +0000
@@ -405,8 +405,6 @@
          begin
          tx:= cc*len;
          ty:= cs*len;
-//         if   TestCollisionXwithXYShift(Gear, round(tx), round(ty), Sign(HHGear.dX))
-///           or TestCollisionYwithXYShift(Gear, round(tx), round(ty), Sign(HHGear.dY)) then
          lx:= round(Gear.X + tx) + sign(HHGear.dX);
          ly:= round(Gear.Y + ty) + sign(HHGear.dY);
          if ((ly and $FFFFFC00) = 0) and ((lx and $FFFFF800) = 0)and (Land[ly, lx] <> 0) then
@@ -573,7 +571,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepMine(Gear: PGear);
 begin
-if (Gear.dX <> 0) or (Gear.dY <> 0) then
+if (Gear.dX <> 0) or (Gear.dY <> 0) {or not TestCollisionY(Gear, 1)} then
    begin
    doStepFallingGear(Gear);
    if Gear.Active = false then