Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.144 -r1.145
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Apr 2009 14:58:15 -0000	1.144
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Apr 2009 15:21:29 -0000	1.145
@@ -519,7 +519,7 @@
   }
 
   FormField instproc answer_is_correct {} {
-    my msg "[my name] ([my info class]): value=[my value], answer=[expr {[my exists answer]?[my set answer]:{NONE}}]"
+    #my msg "[my name] ([my info class]): value=[my value], answer=[expr {[my exists answer]?[my set answer]:{NONE}}]"
     if {[my exists correct_when]} {
       set op [lindex [my correct_when] 0]
       if {[my procsearch answer_check=$op] ne ""} {