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.211 -r1.7.2.212
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	31 Jan 2022 17:22:26 -0000	1.7.2.211
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	1 Feb 2022 13:33:52 -0000	1.7.2.212
@@ -4689,6 +4689,15 @@
       property
       {default ""}
     } {
+      #
+      # Retrieve a property value from the exam statistics result
+      # page. This page is an instance of the exam statistics workflow
+      # stored as a child of the exam object.
+      #
+      # @param obj the exam object
+      # @param property the property name
+      # @param deafult default value when property is not found
+      #
       set p [$obj childpage -name en:result -form inclass-exam-statistics.wf]
       set instance_attributes [$p instance_attributes]
       if {[dict exists $instance_attributes $property]} {