Index: openacs.org-dev/packages/acs-tcl/tcl/text-html-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-tcl/tcl/text-html-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs.org-dev/packages/acs-tcl/tcl/text-html-procs.tcl 28 Oct 2002 15:41:38 -0000 1.3 +++ openacs.org-dev/packages/acs-tcl/tcl/text-html-procs.tcl 6 Nov 2002 22:35:30 -0000 1.4 @@ -907,8 +907,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 }