Index: openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.tcl	9 Feb 2005 10:59:11 -0000	1.4
+++ openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.tcl	24 Feb 2005 09:22:12 -0000	1.5
@@ -90,7 +90,6 @@
 	foreach choice_id [array names feedback] {
 	    set feedback_text $feedback($choice_id)
 	    set selected_p [ad_decode [info exists selected($choice_id)] 0 f t]
-	    set choice_id [string range $choice_id 0 3]
 	    set percent_score $percent($choice_id)
 	    set fixed_position $fixed_pos($choice_id)
 	    set answer_value $answer_val($choice_id)