--- a/hedgewars/HHHandlers.inc	Tue Jul 03 20:11:48 2007 +0000
+++ b/hedgewars/HHHandlers.inc	Sun Jul 08 17:16:46 2007 +0000
@@ -113,7 +113,7 @@
 case Gear^.Pos of
        posCaseAmmo: begin
                     a:= TAmmoType(Gear^.State);
-                    AddAmmo(PHedgehog(HH^.Hedgehog), a);
+                    AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
                     s:= trammo[Ammoz[a].NameId] + '(+' + IntToStr(Ammoz[a].NumberInCase) + ')';
                     AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Clan^.Color, capgrpAmmoinfo);
                     end;