diff --git a/src/cmp/cmpeval.lsp b/src/cmp/cmpeval.lsp
index 5d03403c3..ea5dcbb4f 100644
--- a/src/cmp/cmpeval.lsp
+++ b/src/cmp/cmpeval.lsp
@@ -104,9 +104,8 @@
                (declared-inline-p fname)
                (plusp *inline-max-depth*))
       (return-from c1call-local
-        (let ((*inline-max-depth* (1- *inline-max-depth*))
-              (*cmp-env* (fun-cmp-env fun)))
-          (c1expr `(funcall #',lambda ,@args))))))
+        (let ((*inline-max-depth* (1- *inline-max-depth*)))
+          `(funcall #',lambda ,@args)))))
   (let* ((forms (c1args* args))
          (return-type (or (get-local-return-type fun) 'T))
          (arg-types (get-local-arg-types fun)))