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.141 -r1.142
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 Mar 2009 14:31:54 -0000	1.141
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	1 Apr 2009 11:00:11 -0000	1.142
@@ -519,6 +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}}]"
     if {[my exists correct_when]} {
       set op [lindex [my correct_when] 0]
       if {[my procsearch answer_check=$op] ne ""} {
@@ -530,6 +531,7 @@
     } elseif {![my exists answer]} {
       return 0
     } elseif {[my value] ne [my answer]} {
+      #my msg "v='[my value]' NE a='[my answer]'"
       return -1
     } else {
       return 1