Index: openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl,v
diff -u -N -r1.4.2.12 -r1.4.2.13
--- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	10 Sep 2019 15:19:41 -0000	1.4.2.12
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	11 Sep 2019 11:29:36 -0000	1.4.2.13
@@ -339,9 +339,10 @@
     acs_api_browser_apidoc_tclcode_to_html {
         Check apidoc::tclcode_to_html
     } {
-        set bogus_value [ad_generate_random_string][clock seconds]
-        aa_true "Bogus value returns itself" \
-            {[apidoc::tclcode_to_html $bogus_value] eq $bogus_value}
+        set bogus_value [ad_generate_random_string]
+        set proc_value [apidoc::tclcode_to_html $bogus_value]
+        aa_true "Bogus value returns itself ('$proc_value' eq '$bogus_value')" \
+            {$proc_value eq $bogus_value}
 
         aa_log "Fetching a few commands to test..."
         set commands [list]