--- a/hedgewars/uGears.pas	Thu Nov 11 09:59:45 2010 -0500
+++ b/hedgewars/uGears.pas	Thu Nov 11 10:51:38 2010 -0500
@@ -1675,12 +1675,12 @@
             end;
         AmmoCrate: begin
             FollowGear^.Pos := posCaseAmmo;
-            FollowGear^.AmmoType := content;
+            FollowGear^.AmmoType := TAmmoType(content);
             AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpAmmoInfo);
             end;
         UtilityCrate: begin
             FollowGear^.Pos := posCaseUtility;
-            FollowGear^.AmmoType := content;
+            FollowGear^.AmmoType := TAmmoType(content);
             AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpAmmoInfo);
             end;
     end;