install bug fixed
authortz
Fri, 06 Mar 1998 00:27:00 +0100
changeset 704 0f2dc21e9f66
parent 703 5d0a14bdcc15
child 705 3e41c0e80d92
install bug fixed
UIHelpTool.st
--- 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: