Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -N -r1.108.2.22 -r1.108.2.23
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	27 Aug 2021 18:52:12 -0000	1.108.2.22
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	28 Dec 2021 10:57:01 -0000	1.108.2.23
@@ -955,7 +955,7 @@
         set extraheaders_list [list]
 
         if { $extraheaders ne "" } {
-            foreach {key value} [util_ns_set_to_list -set $extraheaders] {
+            foreach {key value} [ns_set array $extraheaders] {
                 lappend extraheaders_list [list $key $value]
             }
         }