--- a/hedgewars/uConsole.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uConsole.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -26,8 +26,8 @@
 type TVariableType = (vtCommand, vtLongInt, vthwFloat, vtBoolean);
      TCommandHandler = procedure (var params: shortstring);
 
-procedure init_uConsole;
-procedure free_uConsole;
+procedure initModule;
+procedure freeModule;
 procedure WriteToConsole(s: shortstring);
 procedure WriteLnToConsole(s: shortstring);
 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);
@@ -211,7 +211,7 @@
 end;
 
 {$INCLUDE "CCHandlers.inc"}
-procedure init_uConsole;
+procedure initModule;
 var i: LongInt;
 begin
     CurrLine:= 0;
@@ -309,7 +309,7 @@
     RegisterVariable('script'  , vtCommand, @chScript       , false);
 end;
 
-procedure free_uConsole;
+procedure freeModule;
 begin
     FreeVariablesList();
 end;