--- a/hedgewars/uConsts.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uConsts.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -1756,12 +1756,12 @@
     );
             
 
-procedure init_uConsts;
-procedure free_uConsts;
+procedure initModule;
+procedure freeModule;
 
 implementation
 
-procedure init_uConsts;
+procedure initModule;
 var cPathz: array[TPathType] of shortstring = (
         '',                              // ptNone
         '',                              // ptData
@@ -1788,7 +1788,7 @@
     Pathz:= cPathz;
 end;
 
-procedure free_uConsts;
+procedure freeModule;
 begin
 
 end;