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.29.2.1 -r1.29.2.2
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	17 Nov 2003 01:52:14 -0000	1.29.2.1
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	20 Jan 2004 20:46:39 -0000	1.29.2.2
@@ -278,7 +278,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