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 -N -r1.284.2.179 -r1.284.2.180
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	15 Nov 2021 17:23:28 -0000	1.284.2.179
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	5 Dec 2021 16:19:50 -0000	1.284.2.180
@@ -955,6 +955,7 @@
     } else {
       set feedback [_ xowf.answer_$result]
     }
+
     if {$feedback_mode > 1} {
       #ns_log notice "${:name} set_feedback $feedback_mode=[info exists :correct_when] " \
           "correction?[info exists :correction] " \
@@ -993,7 +994,7 @@
               }
               #${:object} set_property -new 1 grading_score $grading_score
               set :grading_score $grading_score
-              #ns_log notice "SET GRADING score $grading_score for [self]"
+              #ns_log notice "=== ${:name} SET GRADING score $grading_score"
             } else {
               ns_log notice "=== ${:name} == no scores for grading '${:grading}': ${:correction_data}"
             }