diff --git a/mes.c b/mes.c
index 785f95e6..49df0b5f 100644
--- a/mes.c
+++ b/mes.c
@@ -349,12 +349,6 @@ vm_evlis_env ()
   return cons (r2, r1);
 }
 
-SCM
-vm_call_lambda ()
-{
-  return vm_call (vm_begin_env, r1, cell_undefined, r0);
-}
-
 SCM
 call_lambda (SCM e, SCM x, SCM aa, SCM a) ///((internal))
 {
@@ -363,7 +357,7 @@ call_lambda (SCM e, SCM x, SCM aa, SCM a) ///((internal))
   r0 = cl;
   r2 = a;
   r3 = aa;
-  return vm_call_lambda ();
+  return vm_begin_env ();
 }
 
 SCM