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 -r1.7.2.61 -r1.7.2.62
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	17 May 2020 18:52:23 -0000	1.7.2.61
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	2 Jun 2020 13:43:01 -0000	1.7.2.62
@@ -1803,12 +1803,19 @@
           $ff_obj set_feedback 3
 
           #ns_log notice "[$p creation_user] [$ff_obj name] [$p property $property] -> [$ff_obj set evaluated_answer_result]"
-          if {[$ff_obj exists grading_score]} {
-            set r [$ff_obj set grading_score]
+          set r [expr {[$ff_obj exists grading_score] ? [$ff_obj set grading_score] : ""}]
+          #
+          # In case, we have a grading score, which is not starred, we
+          # can compute points from this.
+          #
+          if {$r ne "" && ![regexp {[*]$} $r]} {
             #
-            # Add exercise score weighted to the total score.
+            # Add exercise score weighted to the total score to
+            # compute points.
             #
             if {[$ff_obj exists test_item_minutes]} {
+              #ns_log notice "[$ff_obj name]: grading_score <$r>, test_item_minutes <[$ff_obj set test_item_minutes]>"
+              
               set minutes [$ff_obj set test_item_minutes]
               set total_score [expr {$total_score + ($minutes * [$ff_obj set grading_score])}]
               set total_points [expr {$total_points + $minutes}]