diff --git a/sexpr.ml b/sexpr.ml
index f3bb65a..964db00 100644
--- a/sexpr.ml
+++ b/sexpr.ml
@@ -792,7 +792,7 @@ let () =
     { source = src; path = "top" }
     parsr in
   let v = Option.get v in
-  let v = SExpr.flat_map SExprMacroExp.do_eval v in
+  let v = SExprMacroExp.do_eval v in
 
   Format.set_margin 40;
   Format.printf "%a@.@?" SExpr.pp_t v;