1 files changed, 5 insertions, 1 deletions
diff --git a/DSL/Intrinsics.hs b/DSL/Intrinsics.hs
index 11b37f3..72bee4f 100644
--- a/DSL/Intrinsics.hs
+++ b/DSL/Intrinsics.hs
@@ -7,7 +7,11 @@ dump :: StackModifier
 dump = StackModifier { smName="DUMP", smTypes=ts, smFunc=f }
   where
     ts = [tAny]
-    f (x:xs) = putStrLn (show x) >> return xs
+    f (x:xs) = putStrLn x' >> return xs
+      where
+        x' = case x of
+          StackString s -> s
+          _             -> show x
     f _      = unreachable
 
 drop' :: StackModifier