diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 47aaa1cd8b..9e3e64d49d 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,12 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-07-07 19:32 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * source/vm/arrayshb.c
+   * contrib/xhb/xhbfunc.c
+     ! Moved hb_ArrayID() Harbour level function to xhb.lib.
+     ; NOTE: This function is not compatible with x64 architecture.
+
 2008-07-07 19:00 UTC+0100 Marek Paliwoda (mpaliwoda at interia pl)
    * make_xmingwce.mak
      * Changed the way HB_COMP_PATH, HB_PPGEN_PATH,
diff --git a/harbour/contrib/xhb/xhbfunc.c b/harbour/contrib/xhb/xhbfunc.c
index fdb9a810bd..ef6368730e 100644
--- a/harbour/contrib/xhb/xhbfunc.c
+++ b/harbour/contrib/xhb/xhbfunc.c
@@ -122,6 +122,16 @@ HB_FUNC( HB_CHECKSUM )
    HB_FUNC_EXEC( HB_ADLER32 );
 }
 
+HB_FUNC( HB_ARRAYID )  /* for debugging: returns the array's "address" so dual references to same array can be seen */
+{
+   PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
+
+   if( pArray )
+      hb_retnl( ( long ) hb_arrayId( pArray ) );
+   else
+      hb_retnl( -1 );
+}
+
 /* Hash utem functions */
 HB_FUNC_EXTERN( HB_HASH );
 HB_FUNC_EXTERN( HB_HHASKEY );
diff --git a/harbour/source/vm/arrayshb.c b/harbour/source/vm/arrayshb.c
index 690b76eaf1..66832cbc20 100644
--- a/harbour/source/vm/arrayshb.c
+++ b/harbour/source/vm/arrayshb.c
@@ -130,17 +130,6 @@ HB_FUNC( AADD )
       hb_errRT_BASE_SubstR( EG_ARG, 1123, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
 }
 
-HB_FUNC( HB_ARRAYID )  /* for debugging: returns the array's "address" so dual references to same array can be seen */
-{
-   PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
-
-   if( pArray )
-      hb_retnl( ( long ) hb_arrayId( pArray ) );
-   else
-      hb_retnl( -1 );
-}
-
-
 /* NOTE: CA-Cl*pper 5.3 and older will return NIL on bad parameter, 5.3a,b
          will throw a runtime error. [vszakats] */