--- a/hedgewars/uCollisions.pas	Sun Feb 05 12:48:35 2006 +0000
+++ b/hedgewars/uCollisions.pas	Sun Feb 05 18:51:54 2006 +0000
@@ -77,7 +77,7 @@
      X:= round(Gear.X);
      Y:= round(Gear.Y);
      Radius:= Gear.Radius;
-     FillRoundInLand(X, Y, Radius, $FF);
+     FillRoundInLand(X, Y, Radius-1, $FF);
      cGear:= Gear
      end;
 Gear.CollIndex:= Count;
@@ -88,7 +88,7 @@
 begin
 if Gear.CollIndex < Count then
    begin
-   with cinfos[Gear.CollIndex] do FillRoundInLand(X, Y, Radius, 0);
+   with cinfos[Gear.CollIndex] do FillRoundInLand(X, Y, Radius-1, 0);
    cinfos[Gear.CollIndex]:= cinfos[Pred(Count)];
    cinfos[Gear.CollIndex].cGear.CollIndex:= Gear.CollIndex;
    Gear.CollIndex:= High(Longword);