diff --git a/harbour/contrib/hgf/tests/testform.prg b/harbour/contrib/hgf/tests/testform.prg
index f4d409ee9a..e7b5bc9b32 100644
--- a/harbour/contrib/hgf/tests/testform.prg
+++ b/harbour/contrib/hgf/tests/testform.prg
@@ -10,31 +10,31 @@ function Main()
    local oMenu := TMenu():New( oForm )
    local oMenuItem, oSubItem, oSubItem2
 
-   oMenuItem = TMenuItem():New()
+   oMenuItem = TMenuItem():New( oMenu )
    oMenuItem:cCaption = "One"
    oMenu:Add( oMenuItem )
 
-   oSubItem = TMenuItem():New()
+   oSubItem = TMenuItem():New( oMenuItem )
    oSubItem:cCaption = "First"
    oMenuItem:Add( oSubItem )
 
-   oSubItem = TMenuItem():New()
+   oSubItem = TMenuItem():New( oMenuItem )
    oSubItem:cCaption = "Second"
    oMenuItem:Add( oSubItem )
 
-   oSubItem2 = TMenuItem():New()
+   oSubItem2 = TMenuItem():New( oSubItem )
    oSubItem2:cCaption = "Some"
    oSubItem:Add( oSubItem2 )
 
-   oSubItem2 = TMenuItem():New()
+   oSubItem2 = TMenuItem():New( oSubItem )
    oSubItem2:cCaption = "More"
    oSubItem:Add( oSubItem2 )
 
-   oMenuItem = TMenuItem():New()
+   oMenuItem = TMenuItem():New( oMenu )
    oMenuItem:cCaption = "Two"
    oMenu:Add( oMenuItem )
 
-   oMenuItem = TMenuItem():New()
+   oMenuItem = TMenuItem():New( oMenu )
    oMenuItem:cCaption = "Three"
    oMenu:Add( oMenuItem )