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 -r1.39 -r1.40
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	8 Apr 2018 05:29:43 -0000	1.39
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	25 Apr 2018 19:47:46 -0000	1.40
@@ -262,7 +262,7 @@
 } {
     upvar $array row
     
-    array set assignments [list]
+    array set assignments {}
     
     set role_prefix "role_"
     foreach name [array names row "${role_prefix}*"] {
@@ -710,7 +710,7 @@
     }
     
     # Build up the details list
-    set details_list [list]
+    set details_list {}
     foreach field $fields {
         lappend details_list $label($field) $value($field)
     }
@@ -824,7 +824,7 @@
         }
     }
 
-    set category_defaults [list]
+    set category_defaults {}
 
 
     foreach { parent_id parent_heading } [bug_tracker::category_types] {
@@ -1048,7 +1048,7 @@
         fixed_in_version_name
     }
 
-    set category_defaults [list]
+    set category_defaults {}
 
     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 [list]
+    set filter_bug_numbers {}
     template::multirow foreach bugs {
         lappend filter_bug_numbers $bug_number
     }