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.284.2.76 -r1.284.2.77
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Feb 2020 22:32:37 -0000	1.284.2.76
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Feb 2020 19:58:59 -0000	1.284.2.77
@@ -792,7 +792,7 @@
               set grading_score [dict get ${:correction_data} scores ${:grading}]
               #:log "=== grading ${:grading} => $grading_score"
               append feedback " selected_grading_score $grading_score"
-              ${:object} set_property -new 1 grading_score $grading_score
+              #${:object} set_property -new 1 grading_score $grading_score
               set :grading_score $grading_score
               #ns_log notice "SET GRADING score $grading_score for [self]"
             }
@@ -3851,9 +3851,8 @@
       lappend :correction [expr {$correct eq "correct"}]
     }
 
-
     set nr_correct [llength [lmap c ${:correction} { if {!$c} continue; set _ 1}]]
-    set :grading_score [format %.2f [expr {$nr_correct*100.0/[llength ${:correction}]}]]
+    set :grading_score [format %.2f [expr {$nr_correct*100.0/[llength ${:correction}]}]]*
     #:log "text_fields CORRECT? ${:name} results $results :correction ${:correction} -> ${:grading_score}"
     #
     # Return "0" to avoid double feedback via the info text per