Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -N -r1.457 -r1.458 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 5 Sep 2012 07:41:43 -0000 1.457 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 10 Sep 2012 07:59:11 -0000 1.458 @@ -3192,6 +3192,7 @@ set publish_status_clause [::xowiki::Includelet publish_status_clause $publish_status] set result [::xo::OrderedComposite new -destroy_on_cleanup] + $result set folder_ids "" set list_of_folders [list $folder_id] set inherit_folders [FormPage get_super_folders $package_id $folder_id] @@ -3206,6 +3207,8 @@ } } + $result set folder_ids $list_of_folders + foreach folder_id $list_of_folders { foreach object_type $object_types { set attributes [list revision_id creation_user title parent_id page_order \