Index: openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl,v
diff -u -N -r1.11.2.8 -r1.11.2.9
--- openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	11 Nov 2020 12:37:52 -0000	1.11.2.8
+++ openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	22 Feb 2021 10:33:54 -0000	1.11.2.9
@@ -762,7 +762,7 @@
     aa_section "Testing left pad"
 
     set string [ad_generate_random_string]
-    set length [expr {int(rand()*1000)}]
+    set length [expr {1 + int(rand()*1000)}]
     set padstring [ad_generate_random_string]
 
     aa_log " - string: $string"
@@ -779,7 +779,7 @@
     aa_section "Testing right pad"
 
     set string [ad_generate_random_string]
-    set length [expr {int(rand()*1000)}]
+    set length [expr {1 + int(rand()*1000)}]
     set padstring [ad_generate_random_string]
 
     aa_log " - string: $string"