Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/session.tcl	21 Sep 2004 08:55:00 -0000	1.1
+++ openacs-4/packages/assessment/www/session.tcl	21 Sep 2004 11:54:34 -0000	1.2
@@ -16,9 +16,9 @@
   set choice_html {<ul>}
   db_foreach choices {} {
     if {$correct_answer_p == {t}} {
-    set correct_answer {&#9745;}
+    set correct_answer {<font color="#00ff00">&#9745;</font>}
     } else {
-    set correct_answer {&#9746;}
+    set correct_answer {<font color="#ff0000">&#9746;</font>}
     }
     ns_log Warning "$choice_id $choice_id_answer"
     if {$choice_id_answer == $choice_id } {