diff --git a/Text/Hastache.hs b/Text/Hastache.hs
--- a/Text/Hastache.hs
+++ b/Text/Hastache.hs
@@ -149,7 +149,7 @@
     proc :: [Word8] -> [Word8]
     proc (h:t)
         | h == ord8 '&' = stp "&" t
-        | h == ord8 '\\'= stp "\\\\" t
+        | h == ord8 '\\'= stp "\" t
         | h == ord8 '"' = stp """ t
         | h == ord8 '\''= stp "'" t
         | h == ord8 '<' = stp "&lt;" t
diff --git a/hastache.cabal b/hastache.cabal
--- a/hastache.cabal
+++ b/hastache.cabal
@@ -1,5 +1,5 @@
 name:            hastache
-version:         0.1.2
+version:         0.1.3
 license:         BSD3
 license-file:    LICENSE
 category:        Text
diff --git a/tests/test.hs b/tests/test.hs
--- a/tests/test.hs
+++ b/tests/test.hs
@@ -51,7 +51,7 @@
     context "ByteString" = MuVariable (encodeStr "hello - привет")
     context "Text" = MuVariable (T.pack "hello - привет")
     context "String" = MuVariable "hello - привет"
-    context "HtmlString" = MuVariable "<p>text</p>"
+    context "HtmlString" = MuVariable "<p>text (\\)</p>"
     
     testRes  = "\
         \   Char:               [ Й ]            \n\
@@ -60,9 +60,9 @@
         \   ByteString:         [ hello - привет ]      \n\
         \   Text:               [ hello - привет ]            \n\
         \   String:             [ hello - привет ]          \n\
-        \   HtmlString:         [ &lt;p&gt;text&lt;/p&gt; ]      \n\
-        \   HtmlStringUnEsc:    [ <p>text</p> ]    \n\
-        \   HtmlStringUnEsc2:   [ <p>text</p> ]     \n\
+        \   HtmlString:         [ &lt;p&gt;text (&#92;)&lt;/p&gt; ]      \n\
+        \   HtmlStringUnEsc:    [ <p>text (\\)</p> ]    \n\
+        \   HtmlStringUnEsc2:   [ <p>text (\\)</p> ]     \n\
         \"
 
 -- Show/hide block according to list state