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.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	10 Jul 2002 11:57:19 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	26 Jul 2002 00:59:09 -0000	1.5
@@ -55,6 +55,9 @@
     # we quote the ones entered by the user:
     set text [ad_quotehtml $text]
 
+    # Convert _single_ CRLF's to <br>'s to preserve line breaks
+    regsub -all {\r*\n} $text "<br>" text
+    
     # turn CRLFCRLF into <P>
     if { [regsub -all {\r\n\s*\r\n} $text "<p>" text] == 0 } {
 	# try LFLF