diff --git a/Rlang-QQ.cabal b/Rlang-QQ.cabal
--- a/Rlang-QQ.cabal
+++ b/Rlang-QQ.cabal
@@ -1,5 +1,5 @@
 name: Rlang-QQ
-version: 0.0.0.1
+version: 0.0.0.2
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
diff --git a/rsrc/Tree.R b/rsrc/Tree.R
--- a/rsrc/Tree.R
+++ b/rsrc/Tree.R
@@ -1,10 +1,12 @@
 
+rlangQQ_show <- function(x)  paste("'",gsub("'","\\\\'", x),"'", sep='')
+
 rlangQQ_toTree <- function(e)
-    if (is.symbol(e)) paste('Node', show2(e), '[]') else {
+    if (is.symbol(e)) paste('Node', rlangQQ_show(e), '[]') else {
 
 
         paste('Node',
-              show2(e[[1]]),
+              rlangQQ_show(e[[1]]),
               if (length(e) < 2) '[]' else
                 paste('[', paste(sapply(2:length(e), function(i) rlangQQ_toTree(e[[i]])), collapse=', '), ']') )
     }