# HG changeset patch
# User tz
# Date 889140420 -3600
# Node ID 0f2dc21e9f663d12e3ce0c6dfa7cb6eb777643ae
# Parent  5d0a14bdcc15da9e80f6ab386d6b6d4a3d2f9592
install bug fixed

diff -r 5d0a14bdcc15 -r 0f2dc21e9f66 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: