diff -r cbee69165c6a -r 833c0f32e326 hedgewars/uAI.pas
--- a/hedgewars/uAI.pas	Mon Sep 06 20:40:58 2010 +0100
+++ b/hedgewars/uAI.pas	Mon Sep 06 16:23:47 2010 -0400
@@ -71,7 +71,7 @@
     if (Targets.ar[i].Score >= 0) and (not StopThinking) then
        begin
        with CurrentHedgehog^ do
-            a:= Ammo^[CurSlot, CurAmmo].AmmoType;
+            a:= CurAmmoType;
        aa:= a;
        repeat
         if (CanUseAmmo[a]) and