diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index e70688230e..81b53c512a 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -4439,7 +4439,7 @@ Scheme_Object *scheme_compile_sequence(Scheme_Object *forms,
 
     if (SAME_OBJ(val, scheme_begin_syntax) && SCHEME_STX_PAIRP(first)) {      
       /* Flatten begin: */
-      if (scheme_stx_proper_list_length(first) > 0) {
+      if (scheme_stx_proper_list_length(first) > 1) {
         Scheme_Object *rest;
         rest = scheme_flatten_begin(first, scheme_null);
         first = scheme_datum_to_syntax(rest, first, first, 0, 2);