Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -N -r1.75.2.18 -r1.75.2.19
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	27 Aug 2020 11:20:08 -0000	1.75.2.18
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	19 Oct 2021 08:19:13 -0000	1.75.2.19
@@ -124,18 +124,20 @@
       if {[string match "::*" ${:entries_of}]} {
         # class names were provided as a filter
         set class_clause \
-            " and ci.content_type in ('[join [split ${:entries_of} { }] ',']')"
+            [subst { and ci.content_type in ([ns_dbquotelist [split ${:entries_of} { }]]) }]
       } else {
         if {[regexp {^[0-9 ]+$} ${:entries_of}]} {
           # form item_ids were provided as a filter
           set :form_ids ${:entries_of}
         } else {
           # form names provided as a filter
-          set :form_ids [::${:package_id} instantiate_forms \
-                             -forms ${:entries_of}]
+          set :form_ids [::${:package_id} instantiate_forms -forms ${:entries_of}]
         }
         if {${:form_ids} ne ""} {
-          append extra_where_clause " and bt.page_template in ('[join ${:form_ids} ',']') and bt.page_instance_id = bt.revision_id "
+          append extra_where_clause [subst {
+            and bt.page_template in ([ns_dbquotelist ${:form_ids}])
+            and bt.page_instance_id = bt.revision_id
+          }]
         } else {
           error "could not lookup forms ${:entries_of}"
         }