Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -N -r1.109.2.7 -r1.109.2.8
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 10 Aug 2019 14:33:26 -0000 1.109.2.7
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 5 Oct 2019 12:57:36 -0000 1.109.2.8
@@ -2427,7 +2427,7 @@
set end_index [expr {$len-[string length $ellipsis]-1}]
# Back up to the nearest whitespace
- if {[regexp -indices {\s\S*$} [string range $string 0 [expr {$end_index+1}]] match]} {
+ if {[regexp -indices {\s\S*$} [string range $string 0 $end_index+1] match]} {
set last_space [lindex $match 0]
} else {
set last_space -1