Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.39 -r1.39.2.1
--- openacs-4/packages/dotlrn/www/spam.tcl	29 Jun 2018 17:27:19 -0000	1.39
+++ openacs-4/packages/dotlrn/www/spam.tcl	19 Oct 2021 09:05:12 -0000	1.39.2.1
@@ -176,13 +176,13 @@
     set community_url "[parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL][dotlrn_community::get_community_url $community_id]"
 
     if { $recipients_str ne "" } {
-	set recipients_str [join [split $recipients_str] ,]
+	set recipients_str [ns_dbquotelist [split $recipients_str]]
  	append who_will_receive_this_clause [db_map recipients_clause]
     } 
 
 
     if { $rel_types_str ne "" } {
-	set rel_types_str "'[join [split $rel_types_str] ',']'"
+	set rel_types_str [ns_dbquotelist [split $rel_types_str]]
  	append who_will_receive_this_clause [db_map rel_types_clause]
     }