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