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.72 -r1.7.2.73
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	12 Aug 2020 10:01:31 -0000	1.7.2.72
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	13 Aug 2020 12:00:02 -0000	1.7.2.73
@@ -1480,6 +1480,16 @@
 
     ########################################################################
     :public method last_time_in_state {revision_sets -state:required -with_until:switch } {
+      #
+      # Loops through revision sets and retrieve the latest date
+      # where state is that specified.
+      #
+      # @param revision_sets a list of ns_sets containing revision
+      #        data. List is assumed to be sorted in descending
+      #        creation_date order
+      #
+      # @return a date
+      #
       set result ""
       foreach ps $revision_sets {
         if {$state eq [ns_set get $ps state]} {