--- a/hedgewars/uTeams.pas	Sun Nov 19 14:36:13 2006 +0000
+++ b/hedgewars/uTeams.pas	Sun Nov 19 16:10:37 2006 +0000
@@ -354,7 +354,7 @@
 t:= cMaxSlotAmmoIndex;
 with CurrentTeam^ do
      with Hedgehogs[CurrHedgehog] do
-          while (Ammo[CurSlot, CurAmmo].AmmoType <> weap) and (t > 0) do
+          while (Ammo[CurSlot, CurAmmo].AmmoType <> weap) and (t >= 0) do
                 begin
                 ParseCommand('/slot ' + chr(49 + Ammoz[TAmmoType(weap)].Slot));
                 dec(t)