--- a/UIHelpTool.st	Tue Dec 17 11:20:46 2002 +0100
+++ b/UIHelpTool.st	Tue Dec 17 15:44:06 2002 +0100
@@ -647,6 +647,25 @@
 
 !UIHelpTool methodsFor:'building'!
 
+buildAndMergeFromClass:aClass
+    "class and selector changed; merge old definitions
+     into definitions loaded from a class
+    "
+    |saveDictionary saveHelpKey|
+
+    saveDictionary := dictionary.
+    saveHelpKey    := self helpKey.
+
+    self buildFromClass:aClass.
+
+    saveDictionary notEmpty ifTrue:[
+        dictionary declareAllFrom:saveDictionary.
+        self updateList.
+    ].
+    self helpKey:saveHelpKey.
+    self modified:true.
+!
+
 buildFromClass:aClass
     "reads the help dictionary from aClass and find remaining classes 
      'between' aClass and ApplicationModel"