--- a/hedgewars/pas2cRedo.pas	Tue Jan 07 01:58:23 2014 +0400
+++ b/hedgewars/pas2cRedo.pas	Tue Jan 07 22:08:02 2014 +0400
@@ -48,7 +48,7 @@
     Handle = integer;
 
 var
-    write, writeLn, read, readLn, flush: procedure;
+    write, writeLn, read, readLn, flush, CreateDir: procedure;
 
     halt:procedure;