# HG changeset patch
# User unc0rr
# Date 1269363013 0
# Node ID e39d8fa0e06330ea0c282f8352dff42cd2f59af3
# Parent  d6937fc885a1210c21b7d78423a227ff37be5006
Ok, this part is ok

diff -r d6937fc885a1 -r e39d8fa0e063 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Mon Mar 22 20:57:49 2010 +0000
+++ b/hedgewars/uTeams.pas	Tue Mar 23 16:50:13 2010 +0000
@@ -474,7 +474,15 @@
 end;
 
 procedure freeModule;
+var i: LongWord;
 begin
+   if TeamsCount > 0 then
+     begin
+     for i:= 0 to Pred(TeamsCount) do Dispose(TeamsArray[i]);
+     for i:= 0 to Pred(ClansCount) do Dispose(ClansArray[i]);
+     end;
+   TeamsCount:= 0;
+   ClansCount:= 0
 end;
 
 end.