diff --git a/harbour/source/rtl/persist.prg b/harbour/source/rtl/persist.prg
index 66b90dd006..cd647d2221 100644
--- a/harbour/source/rtl/persist.prg
+++ b/harbour/source/rtl/persist.prg
@@ -55,22 +55,12 @@
 
 CLASS TPersistent
 
-   DATA   cName
-
-   METHOD New()
-
    METHOD SaveToText( cObjectName )
 
    METHOD SaveToFile( cFileName ) INLINE MemoWrit( cFileName, ::SaveToText() )
 
 ENDCLASS
 
-METHOD New() CLASS TPersistent
-
-   ::cName = "o" + ::ClassName()
-
-return Self
-
 METHOD SaveToText( cObjectName ) CLASS TPersistent
 
    local oNew := &( ::ClassName() + "()" ):New()
@@ -78,7 +68,7 @@ METHOD SaveToText( cObjectName ) CLASS TPersistent
 
    static nIndent := -3
 
-   DEFAULT cObjectName TO ::cName
+   DEFAULT cObjectName TO "o" + ::ClassName()
 
    nIndent += 3
    cObject := If( nIndent > 0, HB_OsNewLine(), "" ) + Space( nIndent ) + ;