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.16 -r1.17
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	17 May 2003 10:04:18 -0000	1.16
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	28 Aug 2003 09:41:43 -0000	1.17
@@ -1391,6 +1391,7 @@
     {-len 200}
     {-format html}
     {-no_format:boolean}
+    {-ellipsis "..."}
     string 
 } {
     Truncates a string to len characters (defaults to the
@@ -1410,7 +1411,7 @@
     @creation-date September 8, 2002
 } {
     if { [string length $string] > $len } {
-        set string "[string range $string 0 $len]..."
+        set string "[string range $string 0 [expr $len-[string length $ellipsis]-1]]$ellipsis"
     } 
     
     if { [string equal $format "html"] && !$no_format_p } {