Index: openacs-4/packages/contacts/www/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/messages.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/contacts/www/messages.tcl	28 Jul 2005 13:41:50 -0000	1.2
+++ openacs-4/packages/contacts/www/messages.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -23,7 +23,7 @@
 		       -list [db_list_of_lists get_message_types { select pretty_name, message_type from contact_message_types}] \
 		      ]
 
-set actions [list]
+set actions {}
 foreach type $message_types {
     lappend actions "[_ contacts.Add] [lindex $type 0]" [export_vars -base message-ae -url [list [list message_type [lindex $type 1]]]] "[_ contacts.Add] [lindex $type 0]"
     set type_pretty_name([lindex $type 1]) [lindex $type 0]