--- a/UIHelpTool.st	Fri Aug 21 20:54:35 1998 +0200
+++ b/UIHelpTool.st	Fri Aug 21 20:58:27 1998 +0200
@@ -606,6 +606,8 @@
     "reads the help dictionary from aClass and find remaining classes 
      'between' aClass and ApplicationModel" 
 
+    |list listOfHelpSpecClassesView|
+
     modified := false.
     specClass notNil
     ifTrue:
@@ -620,18 +622,24 @@
         (specClass class implements:specSelector) ifFalse:[
             dictionaries at: specClass name put: dictionary 
         ].
-        self listOfHelpSpecClasses contents:  (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
-        (self listOfHelpSpecClasses includes: #ApplicationModel)
-            ifTrue: [self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])].
+        list := self listOfHelpSpecClasses.
+
+        list contents:  (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
+        (list includes: #ApplicationModel)
+            ifTrue: [list removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])].
         self selectionOfHelpSpecClass value: specClass name.  
-        (builder componentAt: #listOfHelpSpecClassesView) selection: 
-                (self listOfHelpSpecClasses value indexOf: specClass name).
+
+        listOfHelpSpecClassesView := builder componentAt: #listOfHelpSpecClassesView.
+        listOfHelpSpecClassesView notNil ifTrue:[
+            listOfHelpSpecClassesView selection: 
+                    (list value indexOf: specClass name).
+        ].
         self helpSpecClassSelected.
     ].
 
     self updateList
 
-    "Modified: / 20.6.1998 / 14:54:46 / cg"
+    "Modified: / 21.8.1998 / 15:48:00 / cg"
 !
 
 buildFromClass: aClass andSelector: aSelector