--- a/hedgewars/uGears.pas	Wed May 02 12:24:44 2012 +0200
+++ b/hedgewars/uGears.pas	Wed May 02 11:43:43 2012 +0100
@@ -999,6 +999,7 @@
 var t, aTot: LongInt;
     i: TAmmoType;
 begin
+Hedgehog:= Hedgehog; // avoid hint
 
 aTot:= 0;
 for i:= Low(TAmmoType) to High(TAmmoType) do