--- a/hedgewars/uTeams.pas	Tue Oct 29 23:47:57 2013 +0400
+++ b/hedgewars/uTeams.pas	Wed Oct 30 00:18:10 2013 +0400
@@ -728,15 +728,17 @@
             begin
             FreeTexture(NameTagTex);
             FreeTexture(GraveTex);
-            FreeTexture(HealthTex);
             FreeTexture(AIKillsTex);
             FreeTexture(FlagTex);
             end;
 
         Dispose(TeamsArray[i]);
     end;
-for i:= 0 to Pred(ClansCount) do
-    Dispose(ClansArray[i]);
+    for i:= 0 to Pred(ClansCount) do
+        begin
+        FreeTexture(ClansArray[i]^.HealthTex);
+        Dispose(ClansArray[i]);
+        end
     end;
 TeamsCount:= 0;
 ClansCount:= 0;