diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm
index e78f1adfa..9e63fea75 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -859,8 +859,7 @@
     ((defmacro ,name ,args . ,body)
      (if (not (symbol? name))
          (report-error loc "expected symbol as macro name" name)
-         (let* ((tree-il (with-fluids ((bindings-data (make-bindings)))
-                           (compile-lambda loc args body)))
+         (let* ((tree-il (compile-lambda loc args body))
                 (object (compile tree-il #:from 'tree-il #:to 'value)))
            (define-macro! loc name object)
            (make-const loc name))))