diff -r 4e65fd69f58c -r ff7291bc811f hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Sun Jul 12 03:03:52 2020 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Jul 16 22:30:32 2020 +0300
@@ -7523,7 +7523,7 @@
     end;
 
     Gear^.Y := int2hwFloat(cWaterLine - 3 * Gear^.Radius);
-    if TestCollisionYwithGear(Gear, -1) <> 0 then
+    if TestCollisionYImpl(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius - 1, -1, Gear^.CollisionMask and lfLandMask) <> 0 then
     begin
         Gear^.Tag := -1;
         exit;