diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp
index 1924d5fd8..a1b5f74a2 100644
--- a/src/cmp/cmpvar.lsp
+++ b/src/cmp/cmpvar.lsp
@@ -257,7 +257,7 @@
     (wt-lcl lex)))
 
 ;;; reference to variable of inner closure.
-(defun wt-env (clv) (wt "CAR(CLV" clv ")"))
+(defun wt-env (clv) (wt "ECL_CONS_CAR(CLV" clv ")"))
 
 ;;; ----------------------------------------------------------------------