--- a/UIHelpTool.st	Thu Jul 15 14:31:34 1999 +0200
+++ b/UIHelpTool.st	Mon Jul 26 09:33:21 1999 +0200
@@ -758,39 +758,36 @@
 
     ((aClass class implements: specSelector)
     and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class implements: specSelector] ifNone: nil) notNil])
-    ifTrue:
-    [                  
+    ifTrue:[                  
         superHelpSpecKeys := helpSpecSuperClass helpSpec keys.
         helpSpec := Dictionary new.
-        aClass helpSpec associationsDo:
-        [:asso|
-            (superHelpSpecKeys includes: asso key) ifFalse: [helpSpec at: asso key put: asso value]
+        aClass helpSpec keysAndValuesDo:[:key :value |
+            (superHelpSpecKeys includes:key) ifFalse: [
+                helpSpec at:key put:value
+            ]
         ].          
-        ^dictionary := helpSpec
+        ^ dictionary := helpSpec
     ].
-    ^dictionary := Dictionary new 
+    ^ dictionary := Dictionary new 
 !
 
 findHelpSpecForKey: aHelpKey
     "finds the help spec class including aHelpKey in its help dictionary and make it current"
 
-    |dictTemp|
+    |dictTemp listOfHelpSpecClasses|
 
     aHelpKey isNil ifTrue: [^nil].
+
     dictTemp := dictionary.
-    self listOfHelpSpecClasses value do:
-    [:clsName|            
-        (dictionary := dictionaries at: clsName ifAbsent: nil) isNil
-        ifTrue:
-        [        
+    listOfHelpSpecClasses := self listOfHelpSpecClasses.
+    listOfHelpSpecClasses value do:[:clsName|            
+        (dictionary := dictionaries at: clsName ifAbsent: nil) isNil ifTrue:[        
             dictionary := dictionaries at: clsName put: (self extractHelpSpecForClass: (Smalltalk at: clsName))
         ].
-        (dictionary includesKey: aHelpKey asSymbol)  
-        ifTrue:
-        [            
+        (dictionary includesKey: aHelpKey asSymbol) ifTrue:[            
             self updateList.
             ^(builder componentAt: #listOfHelpSpecClassesView) selection: 
-                (self listOfHelpSpecClasses value indexOf: clsName).
+                (listOfHelpSpecClasses value indexOf: clsName).
         ]
     ].
     dictionary := dictTemp