Index: openacs-4/packages/intermedia-driver/tcl/intermedia-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/intermedia-driver/tcl/intermedia-procs.tcl,v
diff -u -r1.4.4.1 -r1.4.4.2
--- openacs-4/packages/intermedia-driver/tcl/intermedia-procs.tcl	14 Feb 2019 10:02:36 -0000	1.4.4.1
+++ openacs-4/packages/intermedia-driver/tcl/intermedia-procs.tcl	27 Jan 2022 09:23:59 -0000	1.4.4.2
@@ -94,7 +94,7 @@
     @param object_type
 } {
     if {[info exists package_ids] && [llength $package_ids]} {
-        set package_ids_clause " and swi.package_id in ([template::util::tcl_to_sql_list $package_ids]) "
+        set package_ids_clause " and swi.package_id in ([ns_dbquotelist $package_ids]) "
     } else {
         set package_ids_clause ""
     }