Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl	7 Oct 2007 22:36:54 -0000	1.11
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl	29 Sep 2013 13:40:40 -0000	1.12
@@ -70,7 +70,7 @@
 set validate_list [list]
 set count_correct [array exists correct]
 foreach one_choice $choices {
-    util_unlist $one_choice choice_title choice_id choice_correct_p
+    lassign $one_choice choice_title choice_id choice_correct_p
     incr count
     if {![info exists choice($choice_id)]} {
 	set choice($choice_id) $choice_title