Index: openacs-4/packages/contacts/www/message-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message-ae.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/contacts/www/message-ae.tcl	27 Jun 2007 02:50:51 -0000	1.12
+++ openacs-4/packages/contacts/www/message-ae.tcl	12 Aug 2018 12:22:48 -0000	1.13
@@ -80,7 +80,7 @@
     oo_mailing {
 	set banner_options [util::find_all_files -extension jpg -path "[acs_root_dir][parameter::get_from_package_key -package_key contacts -parameter OOMailingPath]/banner"]
 	if {![string eq $banner_options ""]} {
-	    set banner_options [concat [list ""] $banner_options]
+	    set banner_options [linsert $banner_options 0 [list ""]]
 	    append form_elements {
 		{banner:text(select),optional
 		    {label "[_ contacts.Banner]"} 
@@ -99,7 +99,7 @@
 	}
 
 	if {![string eq $oo_template_options ""]} {
-	    set oo_template_options [concat [list ""] $oo_template_options]
+	    set oo_template_options [linsert $oo_template_options 0 [list ""]]
 	    append form_elements {
 		{oo_template:text(select),optional
 		    {label "[_ contacts.OOTemplate]"}