--- a/UILayoutTool.st	Mon Mar 10 10:25:13 2008 +0100
+++ b/UILayoutTool.st	Mon Mar 10 10:25:26 2008 +0100
@@ -625,15 +625,9 @@
 !
 
 noteBookList
-    "returns list of tab labels
-    "
-    |holder|
-
-    (holder := builder bindingAt:#noteBookList) isNil ifTrue:[
-        holder := nil asValue.
-        builder aspectAt:#noteBookList put:holder
-    ].
-  ^ holder
+    "holds the list of tab labels"
+
+    ^ builder valueAspectFor:#noteBookList initialValue:nil
 !
 
 noteBookModel