Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	2 Jan 2007 14:50:39 -0000	1.41
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	6 Jan 2007 03:29:18 -0000	1.42
@@ -485,10 +485,11 @@
     {-sql ""}
     {-full_statement_name ""}
   } {
-    Return a set of instances of folder objects. If the ...
+    Return a set of instances of folder objects. 
+    The container and contained objects are automatically 
+    destroyed on cleanup of the connection thread
   } {
-    set __result [::xo::OrderedComposite new]
-    uplevel #1 [list $__result volatile]
+    set __result [::xo::OrderedComposite new -destroy_on_cleanup]
     #$__result proc destroy {} {my log "-- "; next}
 
     db_with_handle -dbn $dbn db {