--- a/ResourceSelectionBrowser.st	Fri Jul 09 21:26:34 1999 +0200
+++ b/ResourceSelectionBrowser.st	Fri Jul 09 21:26:59 1999 +0200
@@ -496,11 +496,7 @@
 listOfResourceMethods
     "returns the value holder for the list of the resource methods"
 
-    |holder|
-    (holder := builder bindingAt:#listOfResourceMethods) isNil ifTrue:[
-	builder aspectAt:#listOfResourceMethods put:(holder :=  List new).
-    ].
-    ^ holder
+    ^ builder listAspectFor:#listOfResourceMethods
 !
 
 resourceMethodColumns

--- 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
 
 !