diff --git a/racket/src/racket/src/compile.c b/racket/src/racket/src/compile.c
index 49426e71a0..d214c90fef 100644
--- a/racket/src/racket/src/compile.c
+++ b/racket/src/racket/src/compile.c
@@ -1169,7 +1169,7 @@ if_expand(Scheme_Object *orig_form, Scheme_Comp_Env *env, Scheme_Expand_Info *er
 static Scheme_Object *
 with_cont_mark_syntax(Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Compile_Info *rec, int drec)
 {
-  Scheme_Object *key, *val, *expr, *name, *orig_form = form, *value_name;
+  Scheme_Object *key, *val, *expr, *value_name;
   Scheme_Compile_Info recs[3];
   Scheme_With_Continuation_Mark *wcm;
   int len;
@@ -1194,8 +1194,6 @@ with_cont_mark_syntax(Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Compile_
 
   scheme_compile_rec_done_local(rec, drec);
 
-  name = scheme_check_name_property(orig_form, value_name);
-
   scheme_init_compile_recs(rec, drec, recs, 3);
 
   key = scheme_compile_expr(key, env, recs, 0);