JSON: Unterminated String Literal Error

<!--- Return a string object. --->
<cfreturn (
	"""" &
	ToString( ARGUMENTS.Data ).ReplaceAll(
		"(['""\\\/\n\r\t]{1})",
		"\\$1"
		) &
	""""
	) />

For Cut-and-Paste