--- a/hedgewars/GSHandlers.inc	Sat Mar 17 16:14:08 2012 -0400
+++ b/hedgewars/GSHandlers.inc	Sat Mar 17 17:18:43 2012 -0400
@@ -2905,8 +2905,8 @@
                         end
                 end;
         AfterAttack;
+        DeleteGear(HHGear);
         DeleteGear(Gear);
-        DeleteGear(HHGear);
     end
     else
         begin

--- a/hedgewars/uGearsList.pas	Sat Mar 17 16:14:08 2012 -0400
+++ b/hedgewars/uGearsList.pas	Sat Mar 17 17:18:43 2012 -0400
@@ -496,6 +496,8 @@
         end
     else*)
         begin
+        if (Gear <> CurrentHedgehog^.Gear) or (CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtKamikaze) then
+            Gear^.Hedgehog^.Team^.Clan^.Flawless:= false;
         if (hwRound(Gear^.Y) >= cWaterLine) then
             begin
             t:= max(Gear^.Damage, Gear^.Health);