diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ffdad43838..c3fc41cce7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-09-25 13:16 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+  * contrib/xhb/hbcompat.ch
+    + Added xhb_CopyFile() two-way translations.
+      (untested)
+
 2008-09-25 13:13 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * tests/speedtst.prg
     ! Use hb_OSNewLine() instead of hard-wired EOL.
diff --git a/harbour/contrib/xhb/hbcompat.ch b/harbour/contrib/xhb/hbcompat.ch
index 67c8d8bada..2a4f2c72dd 100644
--- a/harbour/contrib/xhb/hbcompat.ch
+++ b/harbour/contrib/xhb/hbcompat.ch
@@ -115,6 +115,8 @@
    #xtranslate hb_IniRead([<x,...>])       => hb_ReadIni(<x>)
    #xtranslate hb_IniWrite([<x,...>])      => hb_WriteIni(<x>)
 
+   #xtranslate xhb_CopyFile([<x,...>])     => __CopyFile(<x>)
+
    /* Some statement endings */
    #xcommand ENDSEQUENCE => END
    #xcommand ENDSWITCH => END
@@ -192,6 +194,8 @@
    #xtranslate hb_ReadIni([<x,...>])       => hb_IniRead(<x>)
    #xtranslate hb_WriteIni([<x,...>])      => hb_IniWrite(<x>)
 
+   #xtranslate __CopyFile([<x,...>])       => xhb_CopyFile(<x>)
+
    #xtranslate Str(<x>,[<y>],[<y>],<z>)=> iif(<z>, LTrim(Str(<x>)), Str(<x>))
    #xtranslate hb_CMDARGARGV([<x,...>])=> hb_ARGV(0)