--- a/UIHelpTool.st	Fri Mar 06 00:03:26 1998 +0100
+++ b/UIHelpTool.st	Fri Mar 06 00:27:00 1998 +0100
@@ -507,7 +507,8 @@
         ^nil
     ].
 
-    helpSpec := dictionaries at: cls name ifAbsent: [dictionary].
+    helpSpec := dictionaries at: cls name 
+        ifAbsent: [aClass = cls name asString ifTrue: [dictionary] ifFalse: [Dictionary new]].
 
     (cls class implements: #helpSpec) 
     ifTrue: