--- a/hedgewars/uAmmos.pas	Tue Mar 23 16:50:13 2010 +0000
+++ b/hedgewars/uAmmos.pas	Tue Mar 23 16:53:45 2010 +0000
@@ -378,8 +378,7 @@
 var i: LongWord;
 begin
     if StoreCnt > 0 then
-        for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]);
-    StoreCnt:= 0
+        for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i])
 end;
 
 end.