Index: openacs-4/packages/xowiki/tcl/tree-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/tree-procs.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/xowiki/tcl/tree-procs.tcl 29 May 2009 13:37:48 -0000 1.1 +++ openacs-4/packages/xowiki/tcl/tree-procs.tcl 5 Jun 2009 17:48:48 -0000 1.2 @@ -93,11 +93,12 @@ Class TreeNode -superclass ::xo::OrderedComposite -parameter { level label pos {open_requests 0} count {href ""} object owner li_id ul_id ul_class - {prefix ""} {expanded true} {highlight false} + {prefix ""} {expanded false} {highlight false} } TreeNode instproc open_tree {} { my open_requests 1 + my expanded true if {[my exists __parent]} {[my set __parent] open_tree} }