diff -r f07267032194 -r 5cfd1096be5f hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Tue Apr 01 16:05:19 2008 +0000
+++ b/hedgewars/uGears.pas	Tue Apr 01 16:11:07 2008 +0000
@@ -776,9 +776,11 @@
                           if (Mask and EXPLNoDamage) = 0 then
                              begin
                              inc(Gear^.Damage, dmg);
-                             uStats.HedgehogDamaged(Gear, dmg);
                              if Gear^.Kind = gtHedgehog then
+                                begin
+                                uStats.HedgehogDamaged(Gear, dmg);
                                 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear)
+                                end
                              end;
                           if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then
                              begin