--- a/hedgewars/uGears.pas	Sun Jan 31 16:31:45 2010 +0000
+++ b/hedgewars/uGears.pas	Sun Jan 31 16:35:18 2010 +0000
@@ -1667,7 +1667,7 @@
 t:= GearsList;
 while t <> nil do
 	begin
-	dmg:= ModifyDamage(min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25), Gear);
+	dmg:= ModifyDamage(min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25), t);
 	if dmg > 0 then
 	case t^.Kind of
 		gtHedgehog,