Index: openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl,v
diff -u -r1.18.2.6 -r1.18.2.7
--- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	23 Feb 2021 16:05:35 -0000	1.18.2.6
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	28 Dec 2021 10:34:45 -0000	1.18.2.7
@@ -268,7 +268,7 @@
                 # Comment: I have to ask Caroline or Andrew if itis ok to
                 # change bulk-mail datamodel to accommodate message_type.
 
-                set extra_headers [util_list_to_ns_set [ns_set get $bulk_mail extra_headers]]
+                set extra_headers [ns_set create s {*}[ns_set get $bulk_mail extra_headers]]
                 set message_type  [ns_set get $extra_headers bulk-mail-type]
 
                 # don't need this anymore and don't want to send it along