diff --git a/harbour/tests/working/classch.prg b/harbour/tests/working/classch.prg
index 82775383ef..0db746bea3 100644
--- a/harbour/tests/working/classch.prg
+++ b/harbour/tests/working/classch.prg
@@ -36,6 +36,8 @@ ENDCLASS
 
 METHOD New( One, Two ) CLASS TTest
 
+   Super:New()
+
    ::One = One
    ::Two = Two
 
@@ -47,4 +49,16 @@ CLASS TParent
 
    DATA One
 
+   METHOD New()
+
 ENDCLASS
+
+//--------------------------------------------------------------------//
+
+METHOD New() CLASS TParent
+
+   ? "TParent:New()"
+
+return Self
+
+//--------------------------------------------------------------------//