--- a/hedgewars/uTeams.pas	Mon Mar 22 13:44:35 2010 +0000
+++ b/hedgewars/uTeams.pas	Mon Mar 22 17:48:19 2010 +0000
@@ -474,15 +474,7 @@
 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.