--- a/hedgewars/uGearsUtils.pas	Sat Aug 25 09:17:42 2012 -0400
+++ b/hedgewars/uGearsUtils.pas	Sat Aug 25 13:06:28 2012 -0400
@@ -569,7 +569,9 @@
         repeat
             inc(x, Delta);
             cnt:= 0;
-            y:= min(1024, topY) - 2 * Gear^.Radius;
+            if hasBorder then
+                 y:= min(1024, topY+4)
+            else y:= min(1024, topY) - 2 * Gear^.Radius;
             while y < cWaterLine do
                 begin
                 repeat