Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	1 May 2018 08:23:06 -0000	1.61
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	9 May 2018 15:33:29 -0000	1.62
@@ -173,7 +173,7 @@
     } else {
         # we need to return a select list
 
-        set options {}
+        set options [list]
 
         if { [llength $persons] > 0 } {
             set options $persons
@@ -672,7 +672,7 @@
 
     set output {}
     if { $mode ne "edit" } {
-        set selected_list {}
+        set selected_list [list]
 
         foreach option $options_list {
             lassign $option label value