Index: openacs-4/packages/xolp/tcl/xolp-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-util-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/xolp/tcl/xolp-util-procs.tcl	2 May 2019 16:56:43 -0000	1.7
+++ openacs-4/packages/xolp/tcl/xolp-util-procs.tcl	13 Sep 2022 09:54:32 -0000	1.8
@@ -44,15 +44,15 @@
 
 namespace eval ::xolp::test {
 
-    ad_proc create_test_iris {{-nr 1}} {} {
+    ad_proc -private create_test_iris {{-nr 1}} {
       set iris {}
       for {set i 1} {$i <= $nr} {incr i} {
         lappend iris "xolp:test:[ns_uuid]"
       }
       return $iris
     }
 
-    ad_proc create_test_users {{-nr 1}} {} {
+    ad_proc -private create_test_users {{-nr 1}} {
       set user_ids [list]
       for {set i 1} {$i <= $nr} {incr i} {
         set user [acs::test::user::create]
@@ -61,16 +61,16 @@
       return $user_ids
     }
 
-    ad_proc delete_test_user {-user_id} {} {
+    ad_proc -private delete_test_user {-user_id} {
       acs_user::delete -user_id $user_id -permanent
     }
 
-    ad_proc random_element {l} {} {
-        lindex $l [expr {int(rand()*[llength $l])}]
+    ad_proc -private random_element {l} {
+      lindex $l [expr {int(rand()*[llength $l])}]
     }
 
-    ad_proc random_timestamp {} {
-        Stupid random date generator.
+    ad_proc -private random_timestamp {} {
+      Stupid random date generator.
     } {
         # Random date for dummies...
         for {set i 2001} {$i < 2016} {incr i} {lappend years $i}
@@ -85,15 +85,17 @@
         return $ts
     }
 
-    ad_proc random_earlier_timestamp {ts} {
-        Simple function to generate from an end_timestamp a "random" begin_timestamp,
-      which is within sensible boundaries.
+    ad_proc -private random_earlier_timestamp {ts} {
+      Simple function to generate from an end_timestamp a "random"
+      begin_timestamp, which is within sensible boundaries.
     } {
       set ts [clock scan $ts -format "%Y-%m-%d %T z" -timezone :UTC]
       clock format [clock add $ts -[expr {int(rand()*180)}] minute] -format "%Y-%m-%d %T z" -timezone :UTC
     }
 
-    ad_proc -private get_testcase_for_documentation {-case:required {-index 3}} {
+    ad_proc -private get_testcase_for_documentation {
+      -case:required
+      {-index 3}
     } {
       package require textutil
       foreach t [nsv_get aa_test cases] {