Index: lib/minirivet/minirivet.tcl
==================================================================
--- lib/minirivet/minirivet.tcl
+++ lib/minirivet/minirivet.tcl
@@ -1,24 +1,18 @@
 #! /usr/bin/env tclsh
 
 namespace eval ::minirivet {}
 
 proc ::minirivet::parseStringToCode {string} {
-	set fixMap [list]
-	foreach char [list "\{" "\}" "\\"] {
-		lappend fixMap $char "\}; puts -nonewline \"\\$char\"; puts -nonewline \{"
-	}
-
 	set code ""
 	while {$string ne ""} {
 		set endIndex [string first "<?" $string]
 		if {$endIndex == -1} {
 			set endIndex [expr {[string length $string] + 1}]
 		}
 
-
-		append code "puts -nonewline \{" [string map $fixMap [string range $string 0 $endIndex-1]] "\}; "
+		append code [list puts -nonewline [string range $string 0 $endIndex-1]] "; "
 		set string [string range $string $endIndex end]
 		set endIndex [string first "?>" $string]
 		if {$endIndex == -1} {
 			set endIndex [expr {[string length $string] + 1}]
 		}