Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -r1.41.2.48 -r1.41.2.49
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	20 Feb 2022 17:24:10 -0000	1.41.2.48
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	23 Feb 2022 18:40:12 -0000	1.41.2.49
@@ -919,7 +919,7 @@
       set folder_id [::xo::db::CrClass lookup -name $name -parent_id $parent_id]
       if {$folder_id == 0} {
         :log "folder with name '$name' and parent $parent_id does NOT EXIST"
-        set folder_id [::xo::db::sql::content_folder new \
+        set folder_id [::acs::dc call content_folder new \
                            -name $name \
                            -label ${:instance_name} \
                            -parent_id $parent_id \