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.47 -r1.7.2.48
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	18 Apr 2020 11:35:49 -0000	1.7.2.47
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	18 Apr 2020 16:58:34 -0000	1.7.2.48
@@ -1137,6 +1137,7 @@
     #  - marked_results
     #  - answers_panel
     #  - result_table
+    #  - revisions_up_to
     #
 
     :public method create_workflow {
@@ -1335,7 +1336,12 @@
 
     ########################################################################
 
-    :method revisions_up_to {revision_sets revision_id} {
+    :public method revisions_up_to {revision_sets revision_id} {
+      #
+      # Return the revisions of the provided revision set up the
+      # provided revision_id. If this revision_id does not exist,
+      # return the full set.
+      #
       set result ""
       set stop 0
       return [lmap s $revision_sets {