diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index b621750b08..158d26c731 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -3258,8 +3258,6 @@ Scheme_Object *scheme_sfs(Scheme_Object *o, SFS_Info *info, int max_let_depth)
 {
   int init, i;
 
-  return o;
-
   SFS_LOG(printf("sfs %d\n", SCHEME_TYPE(o)));
 
   if (!info) {
diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index 98f80086c3..eacc0f602e 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -2099,6 +2099,9 @@ apply_values_sfs(Scheme_Object *data, SFS_Info *info)
   f = scheme_sfs_expr(f, info, -1);
   e = scheme_sfs_expr(e, info, -1);
 
+  SCHEME_CAR(data) = f;
+  SCHEME_CDR(data) = e;
+
   return data;
 }