Index: openacs-4/packages/assessment/tcl/as-item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-form-procs.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	2 Sep 2008 17:21:29 -0000	1.16
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	29 Sep 2013 13:40:40 -0000	1.17
@@ -31,7 +31,7 @@
 	set item_data [as::item_type_$item(item_type)\::render -type_id $item(item_type_id) -session_id $session_id -section_id $section_id -as_item_id $item_id -default_value $default_value -show_feedback $show_feedback]
     }
 
-    util_unlist $item_data default_value data
+    lassign $item_data default_value data
 
     if {$item(item_type) eq "mc"} {
 	set item(allow_other_p) [as::item_type_mc::allow_other_p -item_type_id $item(item_type_id)]