Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -N -r1.27 -r1.28
--- openacs-4/packages/workflow/tcl/role-procs.tcl	25 Apr 2018 19:47:48 -0000	1.27
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	9 May 2018 15:33:33 -0000	1.28
@@ -143,9 +143,9 @@
     # Parse column values
     switch $operation {
         insert - update {
-            set update_clauses {}
-            set insert_names {}
-            set insert_values {}
+            set update_clauses [list]
+            set insert_names [list]
+            set insert_values [list]
 
             # Handle columns in the workflow_roles table
             foreach attr { 
@@ -292,7 +292,7 @@
 
     @author Lars Pind (lars@collaboraid.biz)
 } {
-    set result {}
+    set result [list]
 
     # workflow::get_roles returns the roles in sort_order
     foreach role_id [workflow::get_roles -workflow_id $workflow_id] {
@@ -598,7 +598,7 @@
     @author Peter Marklund
 } {
     # For performance we avoid nested queries in this proc
-    set role_ids {}
+    set role_ids [list]
 
     db_foreach role_info {} -column_array row {
         set role_id $row(role_id)
@@ -620,8 +620,8 @@
     foreach role_id $role_ids {
         set role,${role_id}(callbacks) {}
         set role,${role_id}(callback_ids) {}
-        array set callback_impl_names,$role_id {}
-        array set callbacks_array,$role_id {}
+        array set callback_impl_names,$role_id [list]
+        array set callbacks_array,$role_id [list]
     }
 
     db_foreach role_callbacks {} -column_array row {
@@ -674,7 +674,7 @@
 
     @param ignore_role_id   If specified, the short_name for the given role will not be included in the result set.
 } {
-    set result {}
+    set result [list]
 
     foreach role_id [workflow::get_roles -all -workflow_id $workflow_id] {
         if { $ignore_role_id eq "" || $ignore_role_id ne $role_id } {
@@ -779,7 +779,7 @@
 } {
     set contract_name [workflow::service_contract::role_assignee_pick_list]
 
-    set party_id_list {}
+    set party_id_list [list]
 
     db_transaction {