Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -N -r1.68.2.21 -r1.68.2.22
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	6 Mar 2021 20:01:30 -0000	1.68.2.21
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	19 Oct 2021 08:32:07 -0000	1.68.2.22
@@ -813,7 +813,7 @@
     set subsites [db_list get_theme_subsites [subst {
         select package_id from apm_parameter_values
         where parameter_id = (select parameter_id from apm_parameters
-                              where package_key in ('[join [subsite::package_keys] ',']')
+                              where package_key in ([ns_dbquotelist [subsite::package_keys]])
                               and parameter_name = 'ThemeKey')
         and attr_value = :theme
         and (:subsite_id is null or package_id = :subsite_id)