--- a/UIHelpTool.st	Tue Dec 17 15:45:13 2002 +0100
+++ b/UIHelpTool.st	Wed Dec 18 12:04:08 2002 +0100
@@ -855,9 +855,9 @@
     ((aClass class includesSelector: specSelector)
     and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class includesSelector: specSelector] ifNone: nil) notNil])
     ifTrue:[                  
-        superHelpSpecKeys := helpSpecSuperClass helpSpec keys.
+        superHelpSpecKeys := (helpSpecSuperClass perform:specSelector) keys.
 
-        aClass helpSpec keysAndValuesDo:[:key :value |
+        (aClass perform:specSelector) keysAndValuesDo:[:key :value |
             (superHelpSpecKeys includes:key) ifFalse: [
                 helpSpec at:key put:value
             ]
@@ -927,10 +927,10 @@
         |superclassHelpKeys implementedHelpSpec hasChanged|
         implementedHelpSpec := Dictionary new.
         superclassHelpKeys := (cls superclass respondsTo: specSelector)
-            ifTrue:  [cls superclass helpSpec keys]
+            ifTrue:  [(cls superclass perform:specSelector) keys]
             ifFalse: [Array new].
 
-        cls helpSpec associationsDo: [:h| (superclassHelpKeys includes: h key) 
+        (cls perform:specSelector) associationsDo: [:h| (superclassHelpKeys includes: h key) 
             ifFalse: [implementedHelpSpec at: h key put: h value]].
 
         hasChanged := false.