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.14 -r1.15
--- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	9 Feb 2005 10:42:50 -0000	1.14
+++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	21 Feb 2005 14:32:56 -0000	1.15
@@ -319,7 +319,8 @@
 	
     set points [expr round($max_points * $percent / 100)]
 
-    as::item_data::new -session_id $session_id -subject_id $subject_id -staff_id $staff_id -as_item_id $as_item_id -section_id $section_id -choice_answer $response -points $points -allow_overwrite_p $allow_overwrite_p
+    set item_data_id [as::item_data::new -session_id $session_id -subject_id $subject_id -staff_id $staff_id -as_item_id $as_item_id -section_id $section_id -choice_answer $response -points $points -allow_overwrite_p $allow_overwrite_p]
+    as::session_results::new -target_id $item_data_id -points $points
 }
 
 ad_proc -public as::item_type_mc::results {