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