Index: openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	2 Sep 2008 17:21:29 -0000	1.24
+++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	29 Sep 2013 13:40:40 -0000	1.25
@@ -310,7 +310,7 @@
     if {![empty_string_p $session_id]} {
 	set count 0
 	foreach one_choice $display_choices {
-	    util_unlist $one_choice title choice_id
+	    lassign $one_choice title choice_id
 	    incr count
 	    db_dml save_order {}
 	}
@@ -617,7 +617,7 @@
     set correct_options [list [list "[_ assessment.yes]" t]]
     set i 0
     foreach c $existing_choices {
-        foreach {value id correct_p} $c {break}
+        lassign $c value id correct_p
         if {![string match "__new*" $id]} {
             if {$i > 0} {
                 ad_form -extend -name $form_id -form \