diff --git a/cyclone.scm b/cyclone.scm
index ed495cb0..a95c486d 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -451,7 +451,7 @@
     ;    (caddr ;; Strip off superfluous lambda
     ;      (closure-convert input-program)))
       (trace:info "---------------- after closure-convert:")
-      (trace:info input-program) ;pretty-print
+      (trace:info (ast:ast->pp-sexp input-program))
       
       (when (not *do-code-gen*)
         (trace:error "DEBUG, existing program")