--- a/hedgewars/GSHandlers.inc	Sun Feb 11 19:38:26 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Feb 11 19:57:29 2007 +0000
@@ -785,6 +785,7 @@
 if (Gear^.Message and gm_Destroy) > 0 then
    begin
    DeleteGear(Gear);
+   FreeActionsList;
    exit
    end;
 

--- a/hedgewars/HHHandlers.inc	Sun Feb 11 19:38:26 2007 +0000
+++ b/hedgewars/HHHandlers.inc	Sun Feb 11 19:57:29 2007 +0000
@@ -126,8 +126,7 @@
                     RenderHealth(PHedgehog(HH^.Hedgehog)^);
                     RecountTeamHealth(PHedgehog(HH^.Hedgehog)^.Team)
                     end;
-     end;
-FreeActionsList
+     end
 end;
 
 const StepTicks: LongWord = 0;