Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -N -r1.7.2.22 -r1.7.2.23
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	3 Feb 2020 22:54:33 -0000	1.7.2.22
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	4 Feb 2020 19:58:59 -0000	1.7.2.23
@@ -1268,7 +1268,7 @@
           if {[$ff_obj exists grading_score]} {
             set r [$ff_obj set grading_score]
           } else {
-            set r [expr {[$ff_obj set evaluated_answer_result] eq "correct" ? 100.0 : 0.0}]
+            set r [expr {[$ff_obj set evaluated_answer_result] eq "correct" ? 100.0 : 0.0}]*
             #ns_log notice [$ff_obj serialize]
           }
           $p set_property -new 1 $property.score $r
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.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