Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl,v
diff -u -r1.89 -r1.90
--- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl	26 Apr 2018 08:56:38 -0000	1.89
+++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl	9 May 2018 15:33:30 -0000	1.90
@@ -51,8 +51,8 @@
 set form [rp_getform]
 
 set category_trees [concat [category_tree::get_mapped_trees $cc_package_id] [category_tree::get_mapped_trees $package_id]]
-set course_categories {}
-set section_categories {}
+set course_categories [list]
+set section_categories [list]
 
 foreach tree [category_tree::get_mapped_trees $cc_package_id] {
     set tree_name [lindex $tree 1]
@@ -135,7 +135,7 @@
     db_1row get_tree_name { }
 
     # Create a list of values for the list filter
-    set $name {}
+    set $name [list]
 
     foreach element $tree_list {
 	if { ! $show_used_categories_only_p || [lsearch $used_categories [lindex $element 0]] != -1 } {
@@ -211,7 +211,7 @@
 set instructor_community_id [parameter::get -package_id [ad_conn package_id] -parameter InstructorCommunityId -default 0 ]
 set _instructors [dotlrn_community::list_users $instructor_community_id]
 
-set __instructors {}
+set __instructors [list]
 if { [llength $_instructors] == 0 } {
     set _instructors 0
     set instructors_filter ""
@@ -265,7 +265,7 @@
     set show_hidden_not_exists_clause ""
 }
 
-set actions {}
+set actions [list]
 if {$show_filters_p} {
     lappend actions "[_ dotlrn-ecommerce.View_All]" ? "[_ dotlrn-ecommerce.View_All]"
 
@@ -615,8 +615,8 @@
 
 	set instructors [util_memoize [list dotlrn_ecommerce::section::instructors $community_id $__instructors] $memoize_max_age]
 	
-	set instructor_names {}
-	set instructor_ids {}
+	set instructor_names [list]
+	set instructor_ids [list]
     set bios_present_p 0
 	foreach instructor $instructors {
 	    lappend instructor_names [lindex $instructor 1]