--- a/HierarchicalListEditor.st	Thu Sep 04 14:17:21 1997 +0200
+++ b/HierarchicalListEditor.st	Thu Sep 04 14:18:25 1997 +0200
@@ -1040,14 +1040,7 @@
 
                 , specSelector , '\'
                 , '    "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
-                , '    |holder root|\\'
-                , '    (holder := builder bindingAt:#', specSelector, ') isNil ifTrue:[\'
-                , '        holder := SelectionInTree new.\'
-                , '        root   := self class ', specSelector, '.\'
-                , '        root expand.\'
-                , '        holder root:root.\'
-                , '    ].\'
-                , '    ^ holder'
+                , '    ^ self class ', specSelector
                 , '\'
                 , Character excla asString
                 , ' '
@@ -1064,11 +1057,7 @@
 doNew
     "remove all items; restart
     "
-    |anchor|
-
-    anchor := TreeItem name:'Anchor' contents:#anchor.
-    anchor expand.
-    treeView model:(SelectionInTree new root:anchor).
+    treeView root:(TreeItem name:'Anchor' contents:#anchor).
     treeView selection:0.
 
 !
@@ -1245,7 +1234,7 @@
     ].
     anchor notNil ifTrue:[
         anchor expand.
-        treeView model root:anchor.
+        treeView root:anchor.
     ] ifFalse:[
         self doNew
     ].