diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index 645f54663a..62385a5a8d 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -1814,7 +1814,7 @@ static Scheme_Object *apply_values_execute(Scheme_Object *data)
   
   f = SCHEME_CAR(data);
 
-  f = _scheme_eval_linked_expr_multi(f);
+  f = _scheme_eval_linked_expr(f);
   if (!SCHEME_PROCP(f)) {
     Scheme_Object *a[1];
     a[0] = f;