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.21.2.4 -r1.21.2.5
--- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	4 Jul 2007 01:42:08 -0000	1.21.2.4
+++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	5 Jul 2007 18:32:36 -0000	1.21.2.5
@@ -197,7 +197,6 @@
     db_foreach choices {} {
 	incr total
 	set title [as::assessment::display_content -content_id $content_rev_id -filename $content_filename -content_type $content_type -title $title]
-selected_p = '${selected_p}' correct_answer_p = '${correct_answer_p}'"
 	if {$show_feedback ne "" && $show_feedback ne "none"} {
 		set pos [lsearch -exact -integer $defaults $choice_id]
 	    if {$pos > -1 && $correct_answer_p == "t" && $show_feedback != "incorrect"} {