Index: openacs-4/packages/xowf/lib/inclass-exam.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-exam.wf,v
diff -u -r1.1.2.85 -r1.1.2.86
--- openacs-4/packages/xowf/lib/inclass-exam.wf	20 Dec 2021 17:55:18 -0000	1.1.2.85
+++ openacs-4/packages/xowf/lib/inclass-exam.wf	2 Jan 2022 19:32:52 -0000	1.1.2.86
@@ -352,6 +352,7 @@
 ########################################################################
 
 :object-specific {
+  set t0 [clock clicks -milliseconds]
   set ctx [:wf_context]
   set container [$ctx wf_container]
   if {$ctx ne $container} {
@@ -545,7 +546,7 @@
                -form_objs     [:query_parameter fos:int32 ""] \
                -export        [:query_parameter export:boolean 0] \
                -orderby       [:query_parameter orderby:token "online-exam-userName"] \
-               -grading       [:query_parameter grading:alnum ""] \
+               -grading       [:query_parameter grading:alnum [:property grading]] \
                -with_grading_table [expr {!$as_student}] \
                [self]]
 
@@ -826,7 +827,7 @@
     ad_script_abort
   }
 
-  #ns_log notice "==== object-specific inclass-exam [self] state ${:state} DONE"
+  #ns_log notice "==== object-specific inclass-exam [self] state ${:state} DONE (took [expr {[clock clicks -milliseconds]-$t0}]ms)"
 }
 
 #