--- 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.

--- a/ResourceRetriever.st	Wed Oct 15 12:41:27 1997 +0200
+++ b/ResourceRetriever.st	Wed Oct 15 12:45:33 1997 +0200
@@ -123,16 +123,14 @@
 resource
     "returns form assigned to resource or nil
     "
-    |img cls|
+    |img cls appl|
 
     selector isNil ifTrue:[
         ^nil
     ].
 
     resourceOwner isNil ifTrue:[
-        (    className isNil
-          or:[(resourceOwner := Smalltalk at:className ifAbsent:nil) isNil]
-        ) ifTrue:[
+        (resourceOwner := Smalltalk classNamed:className) isNil ifTrue:[
             ^ nil
         ]
     ].

--- a/UIGalleryView.st	Wed Oct 15 12:41:27 1997 +0200
+++ b/UIGalleryView.st	Wed Oct 15 12:45:33 1997 +0200
@@ -134,11 +134,7 @@
 majorKey:aKey
     "get the class providing the window specifications
     "
-    (majorKey := aKey) notNil ifTrue:[
-        aKey isBehavior ifFalse:[
-            majorKey := Smalltalk at:aKey asSymbol
-        ]
-    ].
+    majorKey := self resolveName:aKey.
     self selection:nil
 !
 

--- a/UIHelpTool.st	Wed Oct 15 12:41:27 1997 +0200
+++ b/UIHelpTool.st	Wed Oct 15 12:45:33 1997 +0200
@@ -283,13 +283,10 @@
     "
     |cls|
 
-    aClass notNil ifTrue:[
-        aClass isBehavior ifFalse:[cls := Smalltalk at:aClass asSymbol]
-                           ifTrue:[cls := aClass].
+    cls := self resolveName:aClass.
 
-        (cls notNil and:[cls includesBehavior:UISpecification]) ifTrue:[
-            ^ UISpecificationTool
-        ]
+    (cls notNil and:[cls includesBehavior:UISpecification]) ifTrue:[
+        ^ UISpecificationTool
     ].
   ^ cls