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.26 -r1.27
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	30 Oct 2003 08:53:31 -0000	1.26
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	7 Nov 2003 13:03:46 -0000	1.27
@@ -276,7 +276,10 @@
 
     set tagptr -1
 
-    # first thing we do is chop off any trailing unclosed tag 
+    # First try to fix up < not part of a tag.
+
+    regsub -all {<([^/[:alpha:]])} $frag {\&lt;\1} frag
+    # no we do is chop off any trailing unclosed tag 
     # since when we substr blobs this sometimes happens
     
     # this should in theory cut any tags which have been cut open.
@@ -1260,7 +1263,7 @@
                     set text [ad_enhanced_text_to_html $text]
 		}
                 text/plain {
-		    set text [ad_enhanced_text_to_plain_text $text]
+		    set text [ad_enhanced_text_to_plain_text -- $text]
 		}
 	    }
         }