Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.71.2.18 -r1.71.2.19
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	3 Sep 2019 06:35:55 -0000	1.71.2.18
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	29 Nov 2019 11:12:34 -0000	1.71.2.19
@@ -765,7 +765,7 @@
     -cats {api smoke} \
     -procs {
         util::randomize_list
-        randomRange
+        util::random_range
     } \
     util__randomize_list {
         Test util::randomize_list
@@ -780,7 +780,7 @@
     set randomized_list [util::randomize_list $org_list]
     aa_true "Ten-element list: $randomized_list" [util_sets_equal_p $org_list $randomized_list]
 
-    set len [randomRange 200]
+    set len [util::random_range 200]
     set org_list [list]
     for { set i 0 } { $i < $len } { incr i } {
         lappend org_list [ad_generate_random_string]