Index: openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl	27 Jan 2004 12:48:39 -0000	1.24
+++ openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl	26 Apr 2018 08:56:38 -0000	1.25
@@ -15,7 +15,7 @@
 set page_title "Set user casting rules"
 set context [list [list "." "SimInst"] $page_title]
 
-set form [list]
+set form {}
 
 lappend form {casting_type:text(radio)
     {label "Casting type"}
@@ -78,7 +78,7 @@
 
         simulation::template::role_party_mappings -workflow_id $workflow_id -array roles
 
-        set all_group_ids [list]
+        set all_group_ids {}
         foreach group_item $eligible_groups {
             lappend all_group_ids [lindex $group_item 1]
         }