Index: openacs-4/packages/webmail/tcl/wm-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/tcl/wm-util-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/webmail/tcl/wm-util-procs.tcl	9 May 2018 15:33:33 -0000	1.5
+++ openacs-4/packages/webmail/tcl/wm-util-procs.tcl	25 Jul 2018 02:19:28 -0000	1.6
@@ -194,7 +194,7 @@
 	lappend new_header_fields [lindex $header_fields $pos]
 	set header_fields [lreplace $header_fields $pos $pos]
     }
-    set new_header_fields [concat $new_header_fields $header_fields]
+    lappend new_header_fields {*}$header_fields
     
     foreach field $new_header_fields {
 	set lower_name [lindex $field 0]