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