--- a/hedgewars/uTeams.pas	Tue Dec 09 22:56:34 2014 -0500
+++ b/hedgewars/uTeams.pas	Wed Dec 10 08:05:45 2014 -0500
@@ -853,10 +853,11 @@
         for h:= 0 to cMaxHHIndex do
             with TeamsArray[i]^.Hedgehogs[h] do
                 begin
-                if Gear <> nil then
-                    DeleteGearStage(Gear, true);
+//                if Gear <> nil then
+//                    DeleteGearStage(Gear, true);
                 if GearHidden <> nil then
-                    DeleteGearStage(GearHidden, true);
+                    Dispose(GearHidden);
+//                    DeleteGearStage(GearHidden, true);
 
                 FreeAndNilTexture(NameTagTex);
                 FreeAndNilTexture(HealthTagTex);