--- 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);