diff --git a/src/cmp/cmpcbk.lsp b/src/cmp/cmpcbk.lsp
index f3b1891f6..ad2f29bb1 100644
--- a/src/cmp/cmpcbk.lsp
+++ b/src/cmp/cmpcbk.lsp
@@ -110,7 +110,7 @@
                      n "," ct "));")
 	      (wt-nl "ecl_stack_frame_push(frame,ecl_make_foreign_data(&var"
                      n "," ct "," (ffi:size-of-foreign-type type) "));")))
-    (wt-nl "aux = ecl_apply_from_stack_frame(cl_env_copy,frame,"
+    (wt-nl "aux = ecl_apply_from_stack_frame(frame,"
            "ecl_fdefinition(" c-name-constant "));")
     (wt-nl "ecl_stack_frame_close(frame);")
     (when return-p