1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl
index 08e1e16e..451b7988 100644
--- a/stdlib/compiler.tl
+++ b/stdlib/compiler.tl
@@ -244,6 +244,7 @@
     symvec
     lt-frags
     last-form
+    top-form
     closure-spies
     access-spies
 
@@ -2354,7 +2355,7 @@
   (eval (if-match (sys:dvbind @nil @exp) form exp form)))
 
 (defun usr:compile-toplevel (exp : (expanded-p nil))
-  (let ((co (new compiler))
+  (let ((co (new compiler top-form exp))
         (as (new assembler))
         (*dedup* (or *dedup* (hash)))
         (*load-time* nil)