--- a/hedgewars/uGears.pas	Tue May 29 21:55:45 2007 +0000
+++ b/hedgewars/uGears.pas	Tue May 29 21:56:35 2007 +0000
@@ -704,7 +704,7 @@
                        inc(t^.Damage, dmg);
                        if t^.Kind = gtHedgehog then
                           begin
-                          AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear);
+                          AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, t);
                           inc(hh^.DamageGiven, dmg)
                           end;
                        DeleteCI(t);