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.5 -r1.21.2.6 --- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl 5 Jul 2007 18:32:36 -0000 1.21.2.5 +++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl 20 Jul 2007 15:53:42 -0000 1.21.2.6 @@ -174,7 +174,7 @@ } elseif {$pos>-1 && $correct_answer_p == "f" && $show_feedback != "correct"} { lappend choice_list [list "$title $feedback_text" $choice_id] } else { - if {$correct_answer_p == "t" && $show_feedback != "incorrect" && $show_feedback != "correct"} { + if {$pos>-1 && $correct_answer_p == "t" && $show_feedback != "incorrect" && $show_feedback != "correct"} { lappend choice_list [list "$title " $choice_id] } else { lappend choice_list [list $title $choice_id]