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 -r1.9.2.10 -r1.9.2.11
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	15 May 2003 08:46:39 -0000	1.9.2.10
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	15 May 2003 14:08:52 -0000	1.9.2.11
@@ -1411,7 +1411,7 @@
     @creation-date September 8, 2002
 } {
     if { [string length $string] > $len } {
-        set string "[string range $string 0 [expr $len-[string length $ellipsis]]]$ellipsis"
+        set string "[string range $string 0 [expr $len-[string length $ellipsis]-1]]$ellipsis"
     } 
     
     if { [string equal $format "html"] && !$no_format_p } {