diff --git a/harbour/source/vm/arrays.c b/harbour/source/vm/arrays.c
index 05aa1ff923..36449d8175 100644
--- a/harbour/source/vm/arrays.c
+++ b/harbour/source/vm/arrays.c
@@ -770,6 +770,12 @@ PHB_ITEM hb_arrayClone( PHB_ITEM pSrcArray, PHB_NESTED_CLONED pClonedList )
       pDstBaseArray = pDstArray->item.asArray.value;
       pDstBaseArray->uiClass = pSrcBaseArray->uiClass;
 
+      /*-----------------12/20/2001 7:05PM----------------
+       * TODO: Is this correct? was taken from __objClone()
+       * was token from xHarbour
+       * --------------------------------------------------*/
+      pDstBaseArray->puiClsTree = NULL;
+
       for( ulCount = 0; ulCount < ulSrcLen; ulCount++ )
       {
          PHB_ITEM pSrcItem = pSrcBaseArray->pItems + ulCount;
@@ -923,4 +929,4 @@ HB_GARBAGE_FUNC( hb_arrayReleaseGarbage )
       pBaseArray->pItems = NULL;
       pBaseArray->ulLen  = 0;
    }
-}
\ No newline at end of file
+}