diff --git a/cyclone.scm b/cyclone.scm
index d5ed876e..6ca06545 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -454,6 +454,9 @@
           input-program))
       (trace:info "---------------- after closure-convert:")
       (trace:info (ast:ast->pp-sexp input-program))
+
+      (trace:info "---------------- analysis db: ")
+      (trace:info (adb:get-db))
       
       (when (not *do-code-gen*)
         (trace:error "DEBUG, existing program")