Index: openacs-4/packages/acs-tcl/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/json-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/json-procs.tcl	17 Oct 2010 21:06:09 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl	19 Mar 2011 17:24:24 -0000	1.3
@@ -370,6 +370,11 @@
                     && ![regexp {^(?:true|false|null)$} $value]} {
                     set value "\"$value\""
                 }
+                # Cleanup linebreaks
+                regsub -all {\r\n} $value "\n" value
+                regsub -all {\r} $value "\n" value
+                # JSON requires new line characters be escaped
+                regsub -all {\n} $value "\\n" value
                 return $value
             }
          }