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.1 -r1.9.2.2
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	15 Oct 2002 21:09:52 -0000	1.9.2.1
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	6 Nov 2002 22:38:08 -0000	1.9.2.2
@@ -918,8 +918,8 @@
 	}
     } else {
 	# we're in a PRE: clean line breaks and tabs
-	regsub -all {\r\n} $text {\n} text
-	regsub -all {\r} $text {\n} text
+	regsub -all {\r\n} $text "\n" text
+	regsub -all {\r} $text "\n" text
 	# tabs become four spaces
 	regsub -all {[\v\t]} $text {    } text
     }
@@ -1009,7 +1009,7 @@
 } {
     regsub -all {&lt;} $html {<} html
     regsub -all {&gt;} $html {>} html
-    regsub -all {&quot;} $html {"} html
+    regsub -all {&quot;} $html "\"" html
     regsub -all {&mdash;} $html {--} html
     regsub -all {&#151;} $html {--} html
     # Need to do the &amp; last, because otherwise it could interfere with the other expansions,