diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index aeb8fa800c..35c382a083 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-04-14 13:47 UTC+0200 Francesco Saverio Giudice (info/at/fsgiudice.com)
+   * harbour/include/hbcompat.ch
+     * added xharbour compatible hash translations
+
 2007-04-14 13:36 UTC+0200 Francesco Saverio Giudice (info/at/fsgiudice.com)
    * harbour/bin/bld.bat
      * added HB_USER_LIB var to bcc link line to make usable bldtest.bat
diff --git a/harbour/include/hbcompat.ch b/harbour/include/hbcompat.ch
index f6c448806e..8814cd5438 100644
--- a/harbour/include/hbcompat.ch
+++ b/harbour/include/hbcompat.ch
@@ -31,4 +31,37 @@
    #xcommand DEFAULT => OTHERWISE
 #endif
 
+#if !defined( HB_COMPAT_XHB )
+
+#xtranslate HASH([<x,...>])          => HB_HASH([<x>])
+#xtranslate HHASKEY([<x,...>])       => HB_HHASKEY([<x>])
+#xtranslate HGETPOS([<x,...>])       => HB_HPOS([<x>])
+#xtranslate HGET([<x,...>])          => HB_HGET([<x>])
+#xtranslate HSET([<x,...>])          => HB_HSET([<x>])
+#xtranslate HDEL([<x,...>])          => HB_HDEL([<x>])
+#xtranslate HGETKEYAT([<x,...>])     => HB_HKEYAT([<x>])
+#xtranslate HGETVALUEAT([<x,...>])   => HB_HVALUEAT([<x>])
+#xtranslate HSETVALUEAT([<x,...>])   => HB_HVALUEAT([<x>])
+#xtranslate HGETPAIRAT([<x,...>])    => HB_HPAIRAT([<x>])
+#xtranslate HDELAT([<x,...>])        => HB_HDELAT([<x>])
+#xtranslate HGETKEYS([<x,...>])      => HB_HKEYS([<x>])
+#xtranslate HGETVALUES([<x,...>])    => HB_HVALUES([<x>])
+#xtranslate HFILL([<x,...>])         => HB_HFILL([<x>])
+#xtranslate HCLONE([<x,...>])        => HB_HCLONE([<x>])
+#xtranslate HCOPY([<x,...>])         => HB_HCOPY([<x>])
+#xtranslate HMERGE([<x,...>])        => HB_HMERGE([<x>])
+#xtranslate HEVAL([<x,...>])         => HB_HEVAL([<x>])
+#xtranslate HSCAN([<x,...>])         => HB_HSCAN([<x>])
+#xtranslate HSETCASEMATCH( <h>,<l> ) => HB_HCASEMATCH( <h>,<l> ); <h>
+#xtranslate HGETCASEMATCH([<x,...>]) => HB_HCASEMATCH([<x>])
+#xtranslate HSETAUTOADD( <h>,<l> )   => HB_HAUTOADD( <h>,<l> ); <h>
+#xtranslate HGETAUTOADD([<x,...>])   => HB_HAUTOADD([<x>])
+#xtranslate HALLOCATE([<x,...>])     => HB_HALLOCATE([<x>])
+#xtranslate HDEFAULT([<x,...>])      => HB_HDEFAULT([<x>])
+
+#xtranslate NUMTOHEX(<n>)            => NTOC(<n>, 16)
+#xtranslate HEXTONUM(<c>)            => CTON(<c>, 16)
+
+#endif
+
 #endif /* __HARBOUR__ */