Index: wapp.tcl
==================================================================
--- wapp.tcl
+++ wapp.tcl
@@ -153,11 +153,11 @@
     set s [subst -novar -noback $s]
   }
   return $s
 }
 proc wappInt-enc-string {s} {
-  return [string map {\\ \\\\ \" \\\" ' \\' < \\u003c} $s]
+  return [string map {\\ \\\\ \" \\\" ' \\' < \\u003c \n \\n \r \\r} $s]
 }
 
 # This is a helper routine for wappInt-enc-url and wappInt-enc-qp.  It returns
 # an appropriate %HH encoding for the single character c.  If c is a unicode
 # character, then this routine might return multiple bytes:  %HH%HH%HH