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.219 -r1.284.2.220
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	6 Jul 2022 16:14:28 -0000	1.284.2.219
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	23 Aug 2022 14:53:23 -0000	1.284.2.220
@@ -1102,7 +1102,7 @@
                 set grading_score 0.0
               }
               #:log "=== ${:name} grading '${:grading}' => $grading_score"
-              if {[info exists :test_item_points]} {
+              if {[info exists :test_item_points] && ${:test_item_points} ne ""} {
                 set points [format %.2f [expr {${:test_item_points} * $grading_score / 100.0}]]
                 dict set :correction_data points $points
                 #append feedback " correct: $grading_score "
@@ -4850,7 +4850,7 @@
     set nr_correct [llength [lmap c ${:correction} { if {!$c} continue; set _ 1}]]
     set :grading_score [format %.2f [expr {$nr_correct*100.0/[llength ${:correction}]}]]
 
-    if {[info exists :test_item_points]} {
+    if {[info exists :test_item_points] && ${:test_item_points} ne ""} {
       set points [format %.2f [expr {${:test_item_points} * ${:grading_score} / 100.0}]]
       dict set :correction_data points $points
       append feedback " points: $points of [format %.2f ${:test_item_points}]"