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.8 -r1.9.2.9
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 Mar 2003 12:11:01 -0000	1.9.2.8
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 Mar 2003 12:12:34 -0000	1.9.2.9
@@ -131,8 +131,8 @@
     # remove line breaks right before and after HTML tags that will insert a paragraph break themselves
     if { $includes_html_p } {
         foreach tag { ul ol li blockquote p div table tr td th } {
-            regsub -all -nocase "\\n\\s*(<${tag}\\s*\[^>\]*>)" $text {\1} text
-            regsub -all -nocase "(<${tag}\\s*\[^>\]*>)\\s*\\n" $text {\1} text
+            regsub -all -nocase "\\n\\s*(</?${tag}\\s*\[^>\]*>)" $text {\1} text
+            regsub -all -nocase "(</?${tag}\\s*\[^>\]*>)\\s*\\n" $text {\1} text
         }
     }