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.284 -r1.7.2.285
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	24 Nov 2023 13:49:48 -0000	1.7.2.284
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	24 Nov 2023 14:50:45 -0000	1.7.2.285
@@ -3706,11 +3706,14 @@
         #
         # Get manual gradings, if these were already provided.
         #
-        if {[dict exists $manual_grading $qn]} {
+        if {[dict exists $manual_grading $qn achieved]} {
           set achieved [dict get $manual_grading $qn achieved]
-          set comment [dict get $manual_grading $qn comment]
         } else {
           set achieved ""
+        }
+        if {[dict exists $manual_grading $qn comment]} {
+          set comment [dict get $manual_grading $qn comment]
+        } else {
           set comment ""
         }