Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -r1.57 -r1.58
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	30 Apr 2018 12:45:00 -0000	1.57
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	9 May 2018 15:33:29 -0000	1.58
@@ -331,7 +331,7 @@
     set workflow_id [bug_tracker::bug::get_instance_workflow_id -package_id $package_id]
     set state_ids [workflow::fsm::get_states -workflow_id $workflow_id]
 
-    set option_list {}
+    set option_list [list]
     foreach state_id $state_ids {
         workflow::state::fsm::get -state_id $state_id -array state
         lappend option_list [list "$state(pretty_name)" $state(short_name)]
@@ -469,8 +469,8 @@
     @return Returns the category types for this instance as an
     array-list of { parent_id1 heading1 parent_id2 heading2 ... }
 } {
-    array set heading {}
-    set parent_ids {}
+    array set heading [list]
+    set parent_ids [list]
 
     set last_parent_id {}
     foreach elm [get_keywords -package_id $package_id] {
@@ -483,7 +483,7 @@
         }
     }
 
-    set result {}
+    set result [list]
     foreach parent_id $parent_ids {
         lappend result $parent_id $heading($parent_id)
     }
@@ -532,7 +532,7 @@
     @param parent_id The category type's keyword_id
     @return options-list for a select widget for the given category type
 } {
-    set options {}
+    set options [list]
     foreach elm [get_keywords -package_id $package_id] {
         lassign $elm elm_child_id elm_child_heading elm_parent_id
 
@@ -1146,7 +1146,7 @@
     Return a list of lists with the bug number in the first element and the bug
     summary in the second.
 } {
-    set bug_list {}
+    set bug_list [list]
     set package_id [ad_conn package_id]
 
     if { $only_open_p } {
@@ -1176,7 +1176,7 @@
     {-write_or_submitter_p:required}
 } {
     set bug_list [get_mapped_bugs -patch_number $patch_number]
-    set bug_link_list {}
+    set bug_link_list [list]
 
     if { [llength $bug_list] == 0} {
         return ""
@@ -1210,7 +1210,7 @@
     {-bug_id:required}
     {-show_patch_status open}
 } {
-    set patch_list {}
+    set patch_list [list]
 
     switch -- $show_patch_status {
         open {
@@ -1451,7 +1451,7 @@
 ad_proc bug_tracker::get_related_files_links {
     {-bug_id:required}
 } {
-    set related_files_list {}
+    set related_files_list [list]
     set user_id [ad_conn user_id]
     set admin_p [permission::permission_p \
                      -party_id $user_id \
@@ -1502,7 +1502,7 @@
 ad_proc bug_tracker::get_related_files_links {
     {-bug_id:required}
 } {
-    set related_files_list {}
+    set related_files_list [list]
     set user_id [ad_conn user_id]
     set admin_p [permission::permission_p \
                      -party_id $user_id \