Index: openacs-4/packages/curriculum-central/tcl/uos-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/uos-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/curriculum-central/tcl/uos-procs.tcl	16 Jun 2006 11:56:40 -0000	1.36
+++ openacs-4/packages/curriculum-central/tcl/uos-procs.tcl	25 Apr 2018 19:47:47 -0000	1.37
@@ -571,7 +571,7 @@
 
     upvar $array row
 
-    array set assignments [list]
+    array set assignments {}
 
     if { $user_id eq "" } {
 	set user_id [ad_conn user_id]
@@ -1361,7 +1361,7 @@
 	set user_id [ad_conn user_id]
     }
 
-    set ga_list [list]
+    set ga_list {}
     db_foreach select_ga {} {
 	set ga_name "[lang::util::localize $name] ($identifier)"
 	
@@ -1552,7 +1552,7 @@
 
     set one_line [curriculum_central::uos::get_pretty_name -uos_id $object_id]
 
-    set details_list [list]
+    set details_list {}
     
     if { [db_0or1row uos_details {}] } {
 	lappend details_list [_ curriculum-central.credit_value] $credit_value
@@ -1783,7 +1783,7 @@
 	set package_id [ad_conn package_id]
     }
 
-    array set row [list]
+    array set row {}
 
     if { ![db_0or1row latest_grade_set {} -column_array row] } {
 	set row(grade_set_id) ""
@@ -1899,7 +1899,7 @@
 	template::form::section $form_name $section_name
     }
 
-    array set row [list]
+    array set row {}
 
     if { ![db_0or1row latest_schedule_set {} -column_array row] } {
 	set row(schedule_set_id) ""