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 -N -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} {