Index: openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl,v
diff -u -N -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl	10 Mar 2019 21:34:33 -0000	1.5.2.1
+++ openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl	29 Nov 2019 11:12:34 -0000	1.5.2.2
@@ -81,7 +81,7 @@
             }] {
 
                 lassign $tuple parameter_name package_key default_value parameter_id
-                set value [random]
+                set value [util::random]
                 if {$parameter_name ne "PasswordExpirationDays" && $value > 0.7} {
 
                     set package_id [apm_package_id_from_key $package_key]