--- a/UIHelpTool.st	Fri Mar 06 15:35:09 1998 +0100
+++ b/UIHelpTool.st	Fri Mar 06 16:45:37 1998 +0100
@@ -321,13 +321,29 @@
 
 !UIHelpTool methodsFor:'accessing'!
 
+dictionaries
+    "return dictionaries"
+
+    ^dictionaries
+!
+
+dictionaries:aDictionaryOfDictionaries
+    "set dictionaries"
+
+    (dictionaries := aDictionaryOfDictionaries) isNil ifTrue:[
+        dictionaries := Dictionary new.
+    ].
+    self updateList
+!
+
 dictionary
-    "return the value of the instance variable 'dictionary' (automatically generated)"
+    "return dictionary"
 
-    ^ dictionary!
+    ^ dictionary
+!
 
 dictionary:aDictionary
-    "set the value of the instance variable 'dictionary' (automatically generated)"
+    "set dictionary"
 
     (dictionary := aDictionary) isNil ifTrue:[
         dictionary := Dictionary new.
@@ -530,7 +546,8 @@
         [DialogBox confirm: 'Class ', cls name asBoldText, ' already implements\a menu spec!!\\Do only replace, if you have removed\help keys in an existing help spec.\' withCRs yesLabel: ' Merge ' noLabel: ' Replace ']])
         ifTrue:
         [
-             implementedHelpSpec associationsDo: [:h| helpSpec at: h key put: h value].
+             implementedHelpSpec associationsDo: [:h| (helpSpec includesKey: h key) 
+                ifFalse: [helpSpec at: h key put: h value]].
         ]
     ].