--- a/Tools_OrganizerCanvas.st	Mon Mar 10 10:20:58 2008 +0100
+++ b/Tools_OrganizerCanvas.st	Mon Mar 10 10:21:02 2008 +0100
@@ -2096,13 +2096,7 @@
 !
 
 classHierarchyTopClass
-    |holder|
-
-    (holder := builder bindingAt:#classHierarchyTopClass) isNil ifTrue:[
-        holder := Object asValue.
-        builder aspectAt:#classHierarchyTopClass put:holder.
-    ].
-    ^ holder.
+    ^ builder valueAspectFor:#classHierarchyTopClass initialValue:Object
 !
 
 classInheritanceListMenuHolder
@@ -4019,5 +4013,5 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.25 2007-11-05 16:17:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.26 2008-03-10 09:21:02 cg Exp $'
 ! !