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.20 -r1.21
--- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	12 Jun 2006 03:02:38 -0000	1.20
+++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	15 Jun 2006 10:40:59 -0000	1.21
@@ -163,7 +163,7 @@
 		set title [as::assessment::display_content -content_id $content_rev_id -filename $content_filename -content_type $content_type -title $title]
 		set pos [lsearch -exact -integer $defaults $choice_id]
 		if {$pos>-1 && $correct_answer_p == "t" && $show_feedback != "incorrect"} {
-		    lappend choice_list [list "$title  <i>$feedback_text</i>" $choice_id]
+		    lappend choice_list [list "$title <img src=/resources/assessment/correct.gif> <i>$feedback_text</i>" $choice_id]
 		} elseif {$pos>-1 && $correct_answer_p == "f" && $show_feedback != "correct"} {
 		    lappend choice_list [list "$title <img src=/resources/assessment/wrong.gif> <i>$feedback_text</i>" $choice_id]
 		} else {