Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.76.2.41 -r1.76.2.42
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	7 Feb 2021 18:44:50 -0000	1.76.2.41
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	26 Feb 2021 19:15:00 -0000	1.76.2.42
@@ -718,6 +718,9 @@
     The tuples are instances of the class, on which the
     method was called.
   } {
+    if {![info exists folder_id]} {
+      set folder_id ${:folder_id}
+    }
     set s [:instantiate_objects -sql \
                [:instance_select_query \
                     -select_attributes $select_attributes \