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.6 -r1.11.2.7
--- openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	10 Nov 2020 12:08:24 -0000	1.11.2.6
+++ openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	10 Nov 2020 12:39:21 -0000	1.11.2.7
@@ -772,6 +772,8 @@
     set result [ad_pad -left $string $length $padstring]
 
     aa_true " - Result is exactly $length long " {[string length $result] == $length}
+    incr length -1
+    set string [string range $string end-$length end]
     aa_true " - String is at right end " [regexp "^.*${string}\$" $result]
 
     aa_section "Testing right pad"
@@ -787,6 +789,8 @@
     set result [ad_pad -right $string $length $padstring]
 
     aa_true " - Result is exactly $length long " {[string length $result] == $length}
+    incr length -1
+    set string [string range $string 0 $length-1]
     aa_true " - String is at left end " [regexp "^${string}.*\$" $result]
 
 }