Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl,v
diff -u -N -r1.20.2.8 -r1.20.2.9
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	1 Mar 2021 14:15:16 -0000	1.20.2.8
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	19 Oct 2021 08:32:06 -0000	1.20.2.9
@@ -418,11 +418,10 @@
         upvar $enum_array_name enum_values
         set attr_list [list]
 
-        set storage_clause ""
-
         if {$include_storage_types ne ""} {
-            set storage_clause "
-              and a.storage in ('[join $include_storage_types "', '"]')"
+            set storage_clause "and a.storage in ([ns_dbquotelist $include_storage_types])"
+        } else {
+            set storage_clause ""
         }
 
         db_foreach select_attributes [subst -nocommands {