Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/assessment/www/session.tcl	14 Oct 2004 14:15:04 -0000	1.12
+++ openacs-4/packages/assessment/www/session.tcl	19 Oct 2004 15:54:53 -0000	1.13
@@ -62,7 +62,7 @@
     if {[info exists as_item_display_tbx__item_id]} {
         foreach text_value $choice_title {
             if {[empty_string_p $text_answer]} { } else {
-                if {$text_answer == $text_value} { set choice_correct 1 }
+                if {[string toupper $text_answer] == [string toupper $text_value]} { set choice_correct 1 }
             }
         }
     } else {