Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v diff -u -r1.27.2.9 -r1.27.2.10 --- openacs-4/packages/xowiki/tcl/folder-procs.tcl 29 Jan 2015 12:35:54 -0000 1.27.2.9 +++ openacs-4/packages/xowiki/tcl/folder-procs.tcl 3 Mar 2015 16:12:54 -0000 1.27.2.10 @@ -305,14 +305,15 @@ set label "[$top_folder_of_tree title] ..." } - set t [::xowiki::Tree new -id foldertree_[my id] ] + set t [::xowiki::Tree new -id foldertree_[my id] -destroy_on_cleanup] set node [::xowiki::TreeNode new \ -href $href \ -label $label \ -highlight [expr {$current_folder_id == [$top_folder_of_tree item_id]}] \ -object $top_folder_of_tree \ -expanded 1 \ - -open_requests 1] + -open_requests 1 \ + -destroy_on_cleanup] $t add $node set folders [my collect_folders \ -package_id $package_id \ @@ -364,7 +365,8 @@ -object $c \ -highlight $is_current \ -expanded $is_open \ - -open_requests 1] + -open_requests 1 \ + -destroy_on_cleanup] $node add $subnode if {$is_current} {