--- a/hedgewars/pas2cRedo.pas	Sat Nov 29 03:13:06 2014 +0100
+++ b/hedgewars/pas2cRedo.pas	Sat Nov 29 05:15:27 2014 +0100
@@ -84,6 +84,7 @@
      min, max:function:integer;
     assign, rewrite, rewrite_2, reset, reset_2, flush, BlockWrite, BlockRead, close : procedure;
     FileExists, DirectoryExists, eof : function : boolean;
+    ExtractFileDir : function : string;
     ExtractFileName : function : string;
 
     ParamCount : function : integer;