Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -N -r1.41 -r1.42
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	30 Apr 2018 09:40:53 -0000	1.41
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	9 May 2018 15:33:29 -0000	1.42
@@ -262,7 +262,7 @@
 } {
     upvar $array row
     
-    array set assignments {}
+    array set assignments [list]
     
     set role_prefix "role_"
     foreach name [array names row "${role_prefix}*"] {
@@ -710,7 +710,7 @@
     }
     
     # Build up the details list
-    set details_list {}
+    set details_list [list]
     foreach field $fields {
         lappend details_list $label($field) $value($field)
     }
@@ -824,7 +824,7 @@
         }
     }
 
-    set category_defaults {}
+    set category_defaults [list]
 
 
     foreach { parent_id parent_heading } [bug_tracker::category_types] {
@@ -1048,7 +1048,7 @@
         fixed_in_version_name
     }
 
-    set category_defaults {}
+    set category_defaults [list]
 
     foreach { parent_id parent_heading } [bug_tracker::category_types] {
         lappend category_defaults $parent_id {}
@@ -1115,7 +1115,7 @@
     bug_tracker::bug::get_list -ulevel 2
     bug_tracker::bug::get_multirow
     
-    set filter_bug_numbers {}
+    set filter_bug_numbers [list]
     template::multirow foreach bugs {
         lappend filter_bug_numbers $bug_number
     }