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.33 -r1.34
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	7 Jan 2004 01:55:19 -0000	1.33
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	26 Jan 2004 15:39:46 -0000	1.34
@@ -279,7 +279,7 @@
 
     # First try to fix up < not part of a tag.
 
-    regsub -all {<([^/[:alpha:]])} $frag {\&lt;\1} frag
+    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