diff --git a/src/racket/src/module.c b/src/racket/src/module.c
index 363d0d9e9f..8adb9164d7 100644
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@@ -3921,7 +3921,7 @@ void scheme_module_force_lazy(Scheme_Env *env, int previous)
 
 static int wait_registry(Scheme_Env *env)
 {
-  Scheme_Object *lock, *a[1];
+  Scheme_Object *lock, *a[2];
 
   while (1) {
     lock = scheme_hash_get(env->module_registry->loaded, scheme_false);
@@ -3933,7 +3933,7 @@ static int wait_registry(Scheme_Env *env)
 
     a[0] = SCHEME_CAR(lock);
     a[1] = SCHEME_CDR(lock);
-    (void)scheme_sync(1, a);
+    (void)scheme_sync(2, a);
   }
 }
 
diff --git a/src/racket/src/syntax.c b/src/racket/src/syntax.c
index 1c76a30d96..fd59520c95 100644
--- a/src/racket/src/syntax.c
+++ b/src/racket/src/syntax.c
@@ -8096,7 +8096,7 @@ Scheme_Object *scheme_syntax_make_transfer_intro(int argc, Scheme_Object **argv)
   if (scheme_stx_is_clean(argv[0]))
     a[1] = scheme_false;
   else
-    a[2] = scheme_true;
+    a[1] = scheme_true;
 
   return scheme_make_prim_closure_w_arity(delta_introducer, 2, a, "delta-introducer", 1, 1);
 }