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.182 -r1.7.2.183
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	5 Dec 2021 17:21:28 -0000	1.7.2.182
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	7 Dec 2021 10:02:49 -0000	1.7.2.183
@@ -6590,7 +6590,7 @@
       set achieved_points [:complete_dict $achieved_points]
       if {[dict exists $achieved_points achievedPoints]} {
         dict with achieved_points {
-          return [:calc_grade -percentage $percentageRounded -achieved_points $achieved_points]
+          return [:calc_grade -points $achievedPoints -percentage $percentageRounded -achieved_points $achieved_points]
         }
       }
     }