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.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	31 Oct 2001 20:42:07 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 May 2002 15:11:33 -0000	1.3
@@ -56,11 +56,11 @@
     set text [ad_quotehtml $text]
 
     # turn CRLFCRLF into <P>
-    if { [regsub -all {\r\n\r\n} $text "<p>" text] == 0 } {
+    if { [regsub -all {\r\n\s*\r\n} $text "<p>" text] == 0 } {
 	# try LFLF
-	if { [regsub -all {\n\n} $text "<p>" text] == 0 } {
+	if { [regsub -all {\n\s*\n} $text "<p>" text] == 0 } {
 		# try CRCR
-	    regsub -all {\r\r} $text "<p>" text
+	    regsub -all {\r\s*\r} $text "<p>" text
 	}
     }