Index: openacs-4/packages/assessment/www/asm-admin/results-export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-export.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/assessment/www/asm-admin/results-export.tcl	29 Aug 2008 19:09:40 -0000	1.12
+++ openacs-4/packages/assessment/www/asm-admin/results-export.tcl	29 Sep 2013 13:40:40 -0000	1.13
@@ -80,7 +80,7 @@
 	set section_list [db_list_of_lists all_sections {}]
 
 	foreach one_section $section_list {
-	    util_unlist $one_section section_id section_item_id
+	    lassign $one_section section_id section_item_id
 	    set mc_item_list [list]
 	    db_foreach all_section_items {} {
 		lappend item_list $section_id $as_item_id