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 -N -r1.16 -r1.17
--- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	12 Apr 2018 07:47:22 -0000	1.16
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	25 Apr 2018 19:47:46 -0000	1.17
@@ -194,7 +194,7 @@
                 # for strings of the format {column_name} in the subject
                 # and message and replace them with the value of that
                 # column as returned by the query
-                set pairs [list]
+                set pairs {}
                 for {set i 0} {$i < [ns_set size $recipient]} {incr i} {
                     lappend pairs [list \{[ns_set key $recipient $i]\} [ns_set value $recipient $i]]
                 }