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.9 -r1.9.2.10
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 Mar 2003 12:12:34 -0000	1.9.2.9
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	15 May 2003 08:46:39 -0000	1.9.2.10
@@ -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]]]$ellipsis"
     } 
     
     if { [string equal $format "html"] && !$no_format_p } {