--- a/hedgewars/uConsts.pas	Mon Jun 09 15:26:52 2008 +0000
+++ b/hedgewars/uConsts.pas	Mon Jun 09 20:34:45 2008 +0000
@@ -54,7 +54,7 @@
                    gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
                    gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
-                   gtWhip);
+                   gtWhip, gtKamikaze);
 
      TVisualGearType = (vgtFlake, vgtCloud);
 
@@ -890,7 +890,8 @@
                                    NameTex: nil;
                                    Probability: 100;
                                    NumberInCase: 1;
-                                   Ammo: (Propz: 0;
+                                   Ammo: (Propz: ammoprop_ForwMsgs or
+                                                 ammoprop_DontHold;
                                           Count: 1;
                                           NumPerTurn: 0;
                                           Timer: 0;