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 \