--- a/hedgewars/uGears.pas	Sun May 27 17:55:55 2007 +0000
+++ b/hedgewars/uGears.pas	Sun May 27 20:17:55 2007 +0000
@@ -357,7 +357,8 @@
 
 procedure AddDamageTag(X, Y, Damage: LongWord; Gear: PGear);
 begin
-AddGear(X, Y, gtSmallDamage, Damage, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
+if cAltDamage then
+   AddGear(X, Y, gtSmallDamage, Damage, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
 end;
 
 procedure ProcessGears;