--- a/UIHelpTool.st	Fri Jul 09 21:26:34 1999 +0200
+++ b/UIHelpTool.st	Fri Jul 09 21:26:59 1999 +0200
@@ -581,11 +581,7 @@
     "returns the value holder of the specClass and its superclasses 
      which are subclasses of ApplicationModel"
 
-    |holder|       
-    (holder := builder bindingAt:#listOfHelpSpecClasses) isNil ifTrue:[
-        builder aspectAt:#listOfHelpSpecClasses put: (holder := List new)
-    ].
-    ^ holder
+    ^ builder listAspectFor:#listOfHelpSpecClasses
 
 !