diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 2f6a353576..0a0953fc6a 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-08 21:37 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/vm/hashes.c
+    ! fixed typo in hash cloning code which caused that references
+      was copied to cloned array. Thanks to Mindaugas for example.
+
 2008-09-08 13:59 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com)
   * include/hbclass.ch
     ! added missing MESSAGE <MessageName> TO <oObject>
diff --git a/harbour/source/vm/hashes.c b/harbour/source/vm/hashes.c
index 919df400bd..5707ab9788 100644
--- a/harbour/source/vm/hashes.c
+++ b/harbour/source/vm/hashes.c
@@ -651,7 +651,7 @@ void hb_hashCloneBody( PHB_ITEM pHash, PHB_ITEM pDest, PHB_NESTED_CLONED pCloned
    {
       PHB_ITEM pValue = &pHash->item.asHash.value->pPairs[ ulPos ].value;
       if( HB_IS_BYREF( pValue ) )
-         hb_itemUnRef( pValue );
+         pValue = hb_itemUnRef( pValue );
       hb_itemCopy( &pDest->item.asHash.value->pPairs[ ulPos ].key,
                    &pHash->item.asHash.value->pPairs[ ulPos ].key );
       pDest->item.asHash.value->ulLen++;