--- a/MenuEditor.st	Fri May 22 20:29:51 1998 +0200
+++ b/MenuEditor.st	Fri May 22 20:36:12 1998 +0200
@@ -1604,16 +1604,21 @@
 !MenuEditor methodsFor:'accessing'!
 
 submenuTest
-    "return submenu assigned to item test"
-
-    |menu|
+    "return the submenu assigned to item test;
+     this is dynamically constructed, to reflect the current
+     edited menu."
+
+    |menu cls|
 
     (menu := self treeView asMenu) allItemsDo:
     [:anItem|
         anItem value:nil.
         anItem enabled:true.
     ].
-    ^menu
+
+    cls := self resolveName:specClass.
+    menu findGuiResourcesIn:cls.
+    ^ menu
 !
 
 useHelpTool: aHelpTool