--- a/hedgewars/uConsole.pas	Sat Jul 03 04:42:29 2010 +0200
+++ b/hedgewars/uConsole.pas	Sat Jul 03 05:51:24 2010 +0200
@@ -85,19 +85,6 @@
 RegisterVariable:= value;
 end;
 
-procedure FreeVariablesList;
-var t, tt: PVariable;
-begin
-tt:= Variables;
-Variables:= nil;
-while tt <> nil do
-      begin
-      t:= tt;
-      tt:= tt^.Next;
-      Dispose(t)
-      end;
-end;
-
 procedure WriteToConsole(s: shortstring);
 var Len: LongInt;
     done: boolean;
@@ -316,8 +303,16 @@
 end;
 
 procedure freeModule;
+var t, tt: PVariable;
 begin
-    FreeVariablesList();
+    tt:= Variables;
+    Variables:= nil;
+    while tt <> nil do
+    begin
+        t:= tt;
+        tt:= tt^.Next;
+        Dispose(t)
+    end;
 end;
 
 end.