diff --git a/src/cmp/cmplam.lsp b/src/cmp/cmplam.lsp
index c6779b3ec..08fe6993f 100644
--- a/src/cmp/cmplam.lsp
+++ b/src/cmp/cmplam.lsp
@@ -407,7 +407,7 @@ The function thus belongs to the type of functions that cl_make_cfun accepts."
 
     (when fname-in-ihs-p
       (push 'IHS *unwind-exit*)
-      (wt-nl "ihs_push(&ihs," (add-symbol fname) ",Cnil);"))
+      (wt-nl "ecl_ihs_push(cl_env_copy,&ihs," (add-symbol fname) ",Cnil);"))
 
     ;; Bind required parameters.
     (do ((reqs requireds (cdr reqs))