--- a/hedgewars/GSHandlers.inc	Tue Nov 11 15:44:27 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Nov 14 16:44:39 2008 +0000
@@ -232,8 +232,11 @@
 
 procedure doStepHealthTagWorkUnderWater(Gear: PGear);
 begin
-AllInactive:= false;
+if Gear^.Kind = gtHealthTag then
+	AllInactive:= false;
+
 Gear^.Y:= Gear^.Y - _0_08;
+
 if hwRound(Gear^.Y) < cWaterLine + 10 then
    DeleteGear(Gear)
 end;