--- a/MenuEditor.st	Wed Oct 15 12:41:27 1997 +0200
+++ b/MenuEditor.st	Wed Oct 15 12:45:33 1997 +0200
@@ -1782,17 +1782,13 @@
 
     |cls|
 
-    (cls := self specClass) isNil ifTrue:[
-        ^ self information:'no class yet'.
-    ].
-
-    cls isBehavior ifFalse:[
-        (cls := Smalltalk at:cls asSymbol) isNil ifTrue:[
-            ^ self information:'no valid class defined'.
-        ]
-    ].
-    SystemBrowser openInClass:cls class selector:(self painter selectorName)
-
+    cls := self resolveName:(self specClass).
+
+    cls notNil ifTrue:[
+        SystemBrowser openInClass:cls class selector:(self painter selectorName)
+    ] ifFalse:[
+        self information:'no valid class defined'.
+    ]
 !
 
 doDefineClass
@@ -1827,14 +1823,10 @@
 doInstallSpec
     |cls selector painter menu spec mthd category code|
 
-    (cls := self specClass) isNil ifTrue:[
-        ^ self information:'no class yet'.
-    ].
-
-    cls isBehavior ifFalse:[
-        (cls := Smalltalk at:cls asSymbol) isNil ifTrue:[
-            ^ self information:'no valid class defined'.
-        ]
+    cls := self resolveName:(self specClass).
+
+    cls isNil ifTrue:[
+        ^ self information:'no valid class defined'.
     ].
     painter  := self painter.
     selector := painter selectorName.
@@ -2257,13 +2249,13 @@
     |spec cls menu node|
 
     (aClass notNil and:[aSelector notNil]) ifTrue:[
-        aClass isBehavior ifFalse:[cls := Smalltalk at:aClass asSymbol]
-                           ifTrue:[cls := aClass].
+        cls := self resolveName:aClass.
 
         (cls respondsTo:aSelector) ifTrue:[
             spec := cls perform:aSelector
         ]
     ].
+
     spec isNil ifFalse:[
         (spec isMemberOf:Menu) ifFalse:[
             menu := Menu new fromLiteralArrayEncoding:spec.