--- a/UIHelpTool.st	Mon Jan 26 16:18:30 1998 +0100
+++ b/UIHelpTool.st	Mon Jan 26 17:23:07 1998 +0100
@@ -428,14 +428,14 @@
         listChgd ifTrue:[
             self updateList
         ].
-        modifiedHolder value:true
+        modifiedHolder notNil ifTrue: [modifiedHolder value:true]
     ]
 !
 
 installHelpSpecInto:aClass
     "install help text
     "
-    |cls src superHelpSpecKeys|
+    |cls src superHelpSpecKeys helpSpec|
 
     cls := self applicationClassAssociatedWith:aClass.
 
@@ -447,8 +447,13 @@
     ].
 
     superHelpSpecKeys := cls superclass helpSpec keys.
-    dictionary := dictionary keys removeAll: superHelpSpecKeys; yourself.
-    dictionary isEmpty ifTrue:[
+
+    helpSpec := IdentityDictionary new.
+    dictionary associationsDo:
+    [:asso|
+        (superHelpSpecKeys includes: asso key) ifFalse: [helpSpec at: asso key put: asso value]
+    ].
+    helpSpec isEmpty ifTrue:[
         ^nil
     ].
 
@@ -468,11 +473,11 @@
 
 '.
 
-    dictionary asSortedCollection
+    helpSpec keys asSortedCollection
     do:[:key |
         |txt t|
 
-        txt := dictionary at:key.
+        txt := helpSpec at:key.
         src nextPutLine:key storeString.
 
         t := txt asString replaceAll:(Character cr) with:(Character space).