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