Index: openacs-4/packages/workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.tcl,v
diff -u -N -r1.33 -r1.34
--- openacs-4/packages/workflow/tcl/workflow-procs.tcl	25 Apr 2018 19:47:48 -0000	1.33
+++ openacs-4/packages/workflow/tcl/workflow-procs.tcl	9 May 2018 15:33:33 -0000	1.34
@@ -195,9 +195,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 workflows table
             foreach attr { 
@@ -477,7 +477,7 @@
 
     @param ignore_workflow_id   If specified, the short_name for the given workflow will not be included in the result set.
 } {
-    set result {}
+    set result [list]
 
     db_foreach select_workflows {
         select workflow_id, 
@@ -573,7 +573,7 @@
         array unset row description_mime_type
     }
 
-    set spec {}
+    set spec [list]
 
     # Output sorted, and with no empty elements
     foreach name [lsort [array names row]] {
@@ -583,7 +583,7 @@
     }
 
     foreach { key namespace } $handlers {
-        set subspec {}
+        set subspec [list]
         
         foreach sub_id [${namespace}::get_ids -workflow_id $workflow_id] {
             set sub_short_name [${namespace}::get_element \
@@ -752,9 +752,9 @@
     }
     
     # Pull out the extra types, roles/actions/states, so we don't try to create the workflow with them
-    array set aux {}
-    array set counter {}
-    array set remain {}
+    array set aux [list]
+    array set counter [list]
+    array set remain [list]
     foreach { key namespace } $handlers {
         if { [info exists workflow($key)] } {
             set aux($key) $workflow($key)
@@ -768,7 +768,7 @@
         }
     }
 
-    array set sub_id {}
+    array set sub_id [list]
 
     db_transaction {
         # Create the workflow
@@ -908,10 +908,10 @@
 } {
     db_1row workflow_info {} -column_array row
 
-    set callbacks {}
-    set callback_ids {}
-    array set callback_impl_names {}
-    array set callbacks_array {}
+    set callbacks [list]
+    set callback_ids [list]
+    array set callback_impl_names [list]
+    array set callbacks_array [list]
 
     db_foreach workflow_callbacks {} -column_array callback_row {
         lappend callbacks "$callback_row(impl_owner_name).$callback_row(impl_name)"