--- a/hedgewars/uGears.pas	Sun May 17 18:02:21 2009 +0000
+++ b/hedgewars/uGears.pas	Sun May 17 22:15:09 2009 +0000
@@ -665,7 +665,7 @@
 var s: shortstring;
     vampDmg, tmpDmg: Longword;
 begin
-	if Gear^.Kind = gtHedgehog then
+	if (Gear^.Kind = gtHedgehog) and (Damage>=1) then
     begin
 	AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), Damage, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color);
     tmpDmg:= min(Damage, max(0,Gear^.Health-Gear^.Damage));