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.6 -r1.7
--- openacs-4/packages/intermedia-driver/tcl/intermedia-procs.tcl	29 Jan 2019 19:06:26 -0000	1.6
+++ openacs-4/packages/intermedia-driver/tcl/intermedia-procs.tcl	3 Sep 2024 15:37:39 -0000	1.7
@@ -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 ""
     }