diff -r c9c830897547 -r 7f86e7ad378b hedgewars/uAmmos.pas
--- a/hedgewars/uAmmos.pas	Wed Feb 10 17:15:10 2010 +0000
+++ b/hedgewars/uAmmos.pas	Wed Feb 10 17:31:12 2010 +0000
@@ -372,7 +372,8 @@
 procedure free_uAmmos;
 var i: LongWord;
 begin
-	for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]);
+	if StoreCnt > 0 then
+		for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]);
 	StoreCnt:= 0
 end;