Index: openacs-4/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/task-procs.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/project-manager/tcl/task-procs.tcl	26 Apr 2018 08:56:38 -0000	1.34
+++ openacs-4/packages/project-manager/tcl/task-procs.tcl	9 May 2018 15:33:33 -0000	1.35
@@ -111,7 +111,7 @@
         set union_clause ""
     }
 
-    set keys {}
+    set keys [list]
 
     db_foreach get_dependency_tasks { } {
         set options($task_title) $item_id
@@ -253,7 +253,7 @@
         set union_clause ""
     }
 
-    set keys {}
+    set keys [list]
 
     db_foreach get_dependency_tasks { } {
         set options($task_title) $item_id
@@ -414,7 +414,7 @@
 
     if {$loop_limit > 0} {
 
-        set dep_list {}
+        set dep_list [list]
         db_foreach get_dependencies { } {
             lappend dep_list d-$dep_task-$dep_task_parent
         }
@@ -1177,7 +1177,7 @@
 
 ad_proc -public pm::task::email_status {} {
 
-    set package_ids {}
+    set package_ids [list]
     foreach package_id [apm_package_ids_from_key -package_key "project-manager" -mounted] { 
         if { [parameter::get -package_id $package_id -parameter SendDailyEmail -default "0"] } {
 	    lappend package_ids $package_id
@@ -1197,7 +1197,7 @@
         return
     }
 
-    set parties {}
+    set parties [list]
 
     # what if the person assigned is no longer a part of the subsite?
     # right now, we still email them.
@@ -1310,9 +1310,9 @@
         set subject "[ad_system_name]: [_ project-manager.Daily_task_status_report]"
         set address [db_string get_email "select email from parties where party_id = :party" -default "jade-errors@bread.com"]
 
-        set overdue {}
-        set pressing {}
-        set longterm {}
+        set overdue [list]
+        set pressing [list]
+        set longterm [list]
 
         foreach task $task_list($party) {
 
@@ -1398,7 +1398,7 @@
 
 ad_proc -public pm::task::email_status_not_lead {} {
 
-    set package_ids {}
+    set package_ids [list]
     foreach package_id [apm_package_ids_from_key -package_key "project-manager" -mounted] { 
         if { [parameter::get -package_id $package_id -parameter SendDailyEmail -default "0"] } {
 	    lappend package_ids $package_id
@@ -1418,7 +1418,7 @@
         return
     }
 
-    set parties {}
+    set parties [list]
 
     # what if the person assigned is no longer a part of the subsite?
     # right now, we still email them.
@@ -1531,9 +1531,9 @@
         set subject "[ad_system_name]: [_ project-manager.Weekly_task_status_report]"
         set address [db_string get_email "select email from parties where party_id = :party" -default "jade-errors@bread.com"]
 
-        set overdue {}
-        set pressing {}
-        set longterm {}
+        set overdue [list]
+        set pressing [list]
+        set longterm [list]
 
         foreach task $task_list($party) {
 
@@ -2581,7 +2581,7 @@
 
     
     # get the new task values
-    set tasks_item_id {}
+    set tasks_item_id [list]
     foreach num $number {
         lappend tasks_item_id $task_item_id($num)
     }
@@ -2604,8 +2604,8 @@
 	dtype::get_object -object_id $prev_rev_id -object_type pm_task -array old_task
 	db_1row get_new_title_and_desc "select title as old_title,description as old_description from cr_revisions where revision_id = $prev_rev_id"
 	
-	set changes {}
-	set manual_change_list {}
+	set changes [list]
+	set manual_change_list [list]
 	# Get changes for percent_complete
 	set old $old_task(percent_complete)
 	set new $task(percent_complete)