Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	2 Sep 2008 16:35:29 -0000	1.35
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	29 Sep 2013 13:40:40 -0000	1.36
@@ -367,7 +367,7 @@
     set count 0
     foreach one_section $all_sections {
 	incr count
-	util_unlist $one_section section_id title
+	lassign $one_section section_id title
 	lappend section_list $section_id
 	db_dml save_order {}
     }