diff --git a/harbour/tests/broken/dynobj.prg b/harbour/tests/broken/dynobj.prg
index f7a15d43d5..5ed4a951bc 100644
--- a/harbour/tests/broken/dynobj.prg
+++ b/harbour/tests/broken/dynobj.prg
@@ -78,9 +78,8 @@ function Main()
 
    QOut( "And CalcArea() will now give a result in square inches" )
 
-   ClassAdd( oForm:ClassH, "CalcArea", ;
-      {|self| ( ::nRight  - ::nLeft ) * ( ::nBottom - ::nTop ) / (2.54*2.54) },;
-      MET_INLINE )
+   ClassMod( oForm:ClassH, "CalcArea", ;
+      {|self| ( ::nRight  - ::nLeft ) * ( ::nBottom - ::nTop ) / (2.54*2.54) } )
 
    QOut( "What is the Form area ?" )
    QOut( oForm:CalcArea() )