diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c index 36e4c0f8d2..13e1a42830 100644 --- a/src/mzscheme/src/syntax.c +++ b/src/mzscheme/src/syntax.c @@ -1623,7 +1623,7 @@ static Scheme_Object *case_lambda_jit(Scheme_Object *expr) memcpy(seqout, seqin, size); name = seqin->name; - if (SCHEME_BOXP(name)) + if (name && SCHEME_BOXP(name)) name = SCHEME_BOX_VAL(name); for (i = 0; i < cnt; i++) {