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.6 -r1.21.2.7
--- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	20 Jul 2007 15:53:42 -0000	1.21.2.6
+++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	23 Jul 2007 18:01:13 -0000	1.21.2.7
@@ -174,7 +174,7 @@
 		} 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 {		    
-		    if {$pos>-1 && $correct_answer_p == "t" && $show_feedback != "incorrect" && $show_feedback != "correct"} {		    
+		    if {[llength $defaults] && $correct_answer_p == "t" && $show_feedback != "incorrect" && $show_feedback != "correct"} {		    
 		        lappend choice_list [list "$title <img src=/resources/assessment/correct.gif>" $choice_id]			
 		    } else {
 		        lappend choice_list [list $title $choice_id]