Index: openacs-4/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/simulation/www/simplay/message.tcl	30 Nov 2004 21:09:17 -0000	1.30
+++ openacs-4/packages/simulation/www/simplay/message.tcl	25 Apr 2018 19:47:48 -0000	1.31
@@ -203,7 +203,7 @@
 
     if { ![string equal $form_mode "display"] } {
         # edit/new mode - set checkbox integer values
-        set attachments [list]
+        set attachments {}
         foreach attachment_set $attachments_set_list {
             lappend attachments [ns_set get $attachment_set item_id]
         }