fix toString for Push

1 files changed, 1 insertions, 1 deletions

diff --git a/Smurf.icl b/Smurf.icl
index 00da0aa..4c7e0c2 100644
--- a/Smurf.icl
+++ b/Smurf.icl
@@ -24,7 +24,7 @@ instance zero [a] where zero = []
 
 instance toString Stm
 where
-    toString (Push s) = "\"" +++ s +++ "\""
+    toString (Push s) = quotify s
     toString Input = "i"
     toString Output = "o"
     toString Cat = "+"