Index: openacs-4/packages/curriculum-central/www/coordinate/uos-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/uos-edit.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/curriculum-central/www/coordinate/uos-edit.tcl	26 Apr 2018 08:56:38 -0000	1.24
+++ openacs-4/packages/curriculum-central/www/coordinate/uos-edit.tcl	9 May 2018 15:33:30 -0000	1.25
@@ -59,7 +59,7 @@
 }
 
 # Buttons
-set actions {}
+set actions [list]
 if { $enabled_action_id eq "" } {
     foreach available_enabled_action_id [workflow::case::get_available_enabled_action_ids -case_id $case_id] {
 	workflow::case::enabled_action_get -enabled_action_id $available_enabled_action_id -array enabled_action
@@ -475,7 +475,7 @@
 
 
 # Export filters
-set filters {}
+set filters [list]
 foreach name [curriculum_central::get_export_variables] {
     if { [info exists $name] } {
         lappend filters [list "${name}:text(hidden),optional" [list value [set $name]]]
@@ -531,7 +531,7 @@
 
 # on_submit block
 ad_form -extend -name uos -on_submit {
-    array set row {}
+    array set row [list]
 
     if { $enabled_action_id ne "" } {
         foreach field [workflow::action::get_element \
@@ -603,7 +603,7 @@
 
 
 	# For Grade Descriptor fields
-	set grade_descriptors {}
+	set grade_descriptors [list]
 
 	if { $enabled_action_id ne "" } {
 	    # Get the grade descriptors, and the information
@@ -626,7 +626,7 @@
     } elseif { $action_info(short_name) eq "edit_schedule" } {
 
 	# For schedule fields
-	set schedule_fields {}
+	set schedule_fields [list]
 
 	if { $enabled_action_id ne "" } {
 	    # Get the schedule fields, and the information