Index: openacs-4/packages/assessment/lib/item-show-mc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-mc.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/assessment/lib/item-show-mc.tcl	28 Feb 2008 15:15:22 -0000	1.9
+++ openacs-4/packages/assessment/lib/item-show-mc.tcl	29 Sep 2013 13:40:40 -0000	1.10
@@ -20,7 +20,7 @@
 set choices [db_list_of_lists get_choices {}]
 set total [llength $choices]
 foreach one_choice $choices {
-    util_unlist $one_choice choice_id title correct_answer_p feedback_text selected_p percent_score sort_order fixed_position answer_value content_rev_id content_filename content_name
+    lassign $one_choice choice_id title correct_answer_p feedback_text selected_p percent_score sort_order fixed_position answer_value content_rev_id content_filename content_name
     set title  [ad_quotehtml $title]
     set feedback_text [ad_quotehtml $feedback_text]
     incr count