--- a/UIHelpTool.st	Mon Mar 09 21:47:21 1998 +0100
+++ b/UIHelpTool.st	Tue Mar 10 13:42:53 1998 +0100
@@ -387,8 +387,9 @@
         (specClass class implements:#helpSpec) ifFalse:[
             dictionaries at: specClass name put: dictionary 
         ].
-        self listOfHelpSpecClasses contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
-        self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name]).
+        self listOfHelpSpecClasses contents:  (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
+        (self listOfHelpSpecClasses includes: #ApplicationModel)
+            ifTrue: [self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])].
         self selectionOfHelpSpecClass value: specClass name. 
         (builder componentAt: #listOfHelpSpecClassesView) selection: 
                 (self listOfHelpSpecClasses value indexOf: specClass name).