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.41 -r1.42
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	12 Jul 2004 11:12:38 -0000	1.41
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	19 Jan 2005 12:33:41 -0000	1.42
@@ -1549,6 +1549,11 @@
                 }
             }
             
+            # If that laves us with an empty string, then ignore whitespace and just truncate mid-word
+            if { $end_index == -1 } {
+                set end_index [expr $len-[string length $ellipsis]-1]
+            }
+            
             # Chop off extra whitespace at the end
             while { $end_index >= 0 && [string is space [string index $string $end_index]] } {
                 incr end_index -1