diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ed211fda20..369463115d 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
     *contrib/hbzlib/zipnew.cpp
+      * All calls to hb_itemArrayPut() replaced with hb_arraySet()
+
+
+2002-01-25 21:35 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+	
     ! Few type casts for MSVC
 
 2002-01-25 19:00 UTC+0100 Antonio Linares <alinares@fivetech.com>
diff --git a/harbour/tests/testpers.prg b/harbour/tests/testpers.prg
index 5e5932b8ef..3095ab88f4 100644
--- a/harbour/tests/testpers.prg
+++ b/harbour/tests/testpers.prg
@@ -10,8 +10,6 @@ function Main()
    local oTest := Test():New()
    local oTest2 := Test2():New()
 
-   oTest:cName = "oTest"  // We set a name for the persistent object to save
-
    oTest:One   = "hello"
    oTest:Two   = 123
    oTest:Three = "this value is not persistent"
@@ -41,4 +39,4 @@ CLASS Test2 FROM HBPersistent
 
    DATA Five  PROPERTY
 
-ENDCLASS
\ No newline at end of file
+ENDCLASS