--- a/MenuEditor.st	Mon Jul 23 17:23:19 2001 +0200
+++ b/MenuEditor.st	Fri Jul 27 17:02:06 2001 +0200
@@ -2056,13 +2056,16 @@
 
     |menu cls|
 
-    (menu := treeView asMenu) allItemsDo:[:anItem|
-        anItem value:nil.
-        anItem enabled:true.
+    menu := treeView asMenu.
+    menu ifNotNil:[
+        (menu := treeView asMenu) allItemsDo:[:anItem|
+            anItem value:nil.
+            anItem enabled:true.
+        ].
+
+        cls := self resolveName:specClass.
+        menu findGuiResourcesIn:cls.
     ].
-
-    cls := self resolveName:specClass.
-    menu findGuiResourcesIn:cls.
     ^ menu
 !