Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.148 -r1.189.2.149
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	13 Sep 2022 09:27:25 -0000	1.189.2.148
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	13 Sep 2022 09:33:04 -0000	1.189.2.149
@@ -2969,7 +2969,8 @@
 ad_proc util_background_running_p {
     {-name:required}
 } {
-
+    @return a boolean telling whether a background execution with this
+            name is currently running.
 } {
     set running_p [nsv_exists util_background_exec $name]
     return $running_p
Index: openacs-4/packages/xooauth/tcl/oauth-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/oauth-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/xooauth/tcl/oauth-procs.tcl	18 Apr 2021 18:10:42 -0000	1.1.2.5
+++ openacs-4/packages/xooauth/tcl/oauth-procs.tcl	13 Sep 2022 09:38:32 -0000	1.1.2.6
@@ -21,11 +21,15 @@
 namespace eval ::xo {}
 namespace eval ::xo::oauth {
 
-  ad_proc nonce {} {} {
+  ad_proc nonce {} {
+    @return a nonce for the current request.
+  } {
     return [ad_generate_random_string 33]
   }
 
-  ad_proc timestamp {} {} {
+  ad_proc timestamp {} {
+    @return the current epoch timestamp in seconds
+  } {
     return [clock seconds]
   }