diff --git a/src/racket/src/mkmark.rkt b/src/racket/src/mkmark.rkt
index a3084271b6..f03d3b72ec 100644
--- a/src/racket/src/mkmark.rkt
+++ b/src/racket/src/mkmark.rkt
@@ -114,7 +114,7 @@
 	     (let ([who (cadr m)]
                    [so (open-output-bytes)])
                (parameterize ([current-output-port so])
-                 (printf "/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */\n")
+                 (printf "/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */\n")
                  (let file-loop ()
                    (let ([l (read-line)])
                      (if (eof-object? l)
diff --git a/src/racket/src/mzmark_compenv.inc b/src/racket/src/mzmark_compenv.inc
index 0fea30272e..f3d1f44ae6 100644
--- a/src/racket/src/mzmark_compenv.inc
+++ b/src/racket/src/mzmark_compenv.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_comp_env_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_compile.inc b/src/racket/src/mzmark_compile.inc
index a4304bc463..c8606068dc 100644
--- a/src/racket/src/mzmark_compile.inc
+++ b/src/racket/src/mzmark_compile.inc
@@ -1,2 +1,2 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
diff --git a/src/racket/src/mzmark_env.inc b/src/racket/src/mzmark_env.inc
index a4304bc463..c8606068dc 100644
--- a/src/racket/src/mzmark_env.inc
+++ b/src/racket/src/mzmark_env.inc
@@ -1,2 +1,2 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
diff --git a/src/racket/src/mzmark_eval.inc b/src/racket/src/mzmark_eval.inc
index 8c168b522d..c82ff17848 100644
--- a/src/racket/src/mzmark_eval.inc
+++ b/src/racket/src/mzmark_eval.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_comp_info_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_fun.inc b/src/racket/src/mzmark_fun.inc
index 96116f51e0..830e0e1090 100644
--- a/src/racket/src/mzmark_fun.inc
+++ b/src/racket/src/mzmark_fun.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_closure_info_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_future.inc b/src/racket/src/mzmark_future.inc
index a512b5ee44..6faac56aa0 100644
--- a/src/racket/src/mzmark_future.inc
+++ b/src/racket/src/mzmark_future.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 #ifdef MZ_USE_FUTURES
 
diff --git a/src/racket/src/mzmark_hash.inc b/src/racket/src/mzmark_hash.inc
index ba2f0091c3..1a4e09cea8 100644
--- a/src/racket/src/mzmark_hash.inc
+++ b/src/racket/src/mzmark_hash.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int hash_tree_val_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_jit.inc b/src/racket/src/mzmark_jit.inc
index f4de12828e..e3726a5f03 100644
--- a/src/racket/src/mzmark_jit.inc
+++ b/src/racket/src/mzmark_jit.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int native_closure_SIZE(void *p, struct NewGC *gc) {
   Scheme_Native_Closure *c = (Scheme_Native_Closure *)p;
diff --git a/src/racket/src/mzmark_network.inc b/src/racket/src/mzmark_network.inc
index ececf817fe..38ccf0f39d 100644
--- a/src/racket/src/mzmark_network.inc
+++ b/src/racket/src/mzmark_network.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_listener_SIZE(void *p, struct NewGC *gc) {
   listener_t *l = (listener_t *)p;
diff --git a/src/racket/src/mzmark_optimize.inc b/src/racket/src/mzmark_optimize.inc
index ea2cd3bc13..ac8e290f75 100644
--- a/src/racket/src/mzmark_optimize.inc
+++ b/src/racket/src/mzmark_optimize.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_optimize_info_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_place.inc b/src/racket/src/mzmark_place.inc
index 6e56f2fc9e..1817b418ce 100644
--- a/src/racket/src/mzmark_place.inc
+++ b/src/racket/src/mzmark_place.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int place_bi_channel_val_SIZE(void *p, struct NewGC *gc) {
   return
@@ -68,11 +68,8 @@ static int place_async_channel_val_MARK(void *p, struct NewGC *gc) {
 
 static int place_async_channel_val_FIXUP(void *p, struct NewGC *gc) {
   Scheme_Place_Async_Channel *pac = (Scheme_Place_Async_Channel *)p;
-  int i;
   gcFIXUP2(pac->msgs, gc);
   gcFIXUP2(pac->msg_memory, gc);
-  for (i = pac->size; i--; )
-    gcFIXUP2(pac->msgs[i], gc);
 
   return
   gcBYTES_TO_WORDS(sizeof(Scheme_Place_Async_Channel));
diff --git a/src/racket/src/mzmark_port.inc b/src/racket/src/mzmark_port.inc
index d06bc1b2aa..d6bd5be8de 100644
--- a/src/racket/src/mzmark_port.inc
+++ b/src/racket/src/mzmark_port.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 #ifdef WINDOWS_PROCESSES
 static int mark_thread_memory_SIZE(void *p, struct NewGC *gc) {
diff --git a/src/racket/src/mzmark_portfun.inc b/src/racket/src/mzmark_portfun.inc
index 29155030c8..562fd6aa55 100644
--- a/src/racket/src/mzmark_portfun.inc
+++ b/src/racket/src/mzmark_portfun.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_load_handler_data_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_print.inc b/src/racket/src/mzmark_print.inc
index 03376d97e6..9fc270776b 100644
--- a/src/racket/src/mzmark_print.inc
+++ b/src/racket/src/mzmark_print.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_print_params_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_read.inc b/src/racket/src/mzmark_read.inc
index 9b0ed49cb7..5e22a6af61 100644
--- a/src/racket/src/mzmark_read.inc
+++ b/src/racket/src/mzmark_read.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_indent_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_regexp.inc b/src/racket/src/mzmark_regexp.inc
index 655f0a4848..7cf4eec29c 100644
--- a/src/racket/src/mzmark_regexp.inc
+++ b/src/racket/src/mzmark_regexp.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_regexp_SIZE(void *p, struct NewGC *gc) {
   regexp *r = (regexp *)p;
diff --git a/src/racket/src/mzmark_resolve.inc b/src/racket/src/mzmark_resolve.inc
index 4ae5f91fbd..97ec17850f 100644
--- a/src/racket/src/mzmark_resolve.inc
+++ b/src/racket/src/mzmark_resolve.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_resolve_info_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_salloc.inc b/src/racket/src/mzmark_salloc.inc
index 2e3f4b3bd1..b3d309e026 100644
--- a/src/racket/src/mzmark_salloc.inc
+++ b/src/racket/src/mzmark_salloc.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_finalization_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_sema.inc b/src/racket/src/mzmark_sema.inc
index 4f6cc72f98..b06bd137a4 100644
--- a/src/racket/src/mzmark_sema.inc
+++ b/src/racket/src/mzmark_sema.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_channel_syncer_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_sfs.inc b/src/racket/src/mzmark_sfs.inc
index 936a6902ab..5db7e64664 100644
--- a/src/racket/src/mzmark_sfs.inc
+++ b/src/racket/src/mzmark_sfs.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_sfs_info_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_string.inc b/src/racket/src/mzmark_string.inc
index f033bcb465..74b8c4d23e 100644
--- a/src/racket/src/mzmark_string.inc
+++ b/src/racket/src/mzmark_string.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_string_convert_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_struct.inc b/src/racket/src/mzmark_struct.inc
index e1a2289659..671aa27286 100644
--- a/src/racket/src/mzmark_struct.inc
+++ b/src/racket/src/mzmark_struct.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 #ifdef MZ_USE_PLACES
 static int mark_serialized_struct_val_SIZE(void *p, struct NewGC *gc) {
diff --git a/src/racket/src/mzmark_syntax.inc b/src/racket/src/mzmark_syntax.inc
index 130ff9181d..4e1a6c88e6 100644
--- a/src/racket/src/mzmark_syntax.inc
+++ b/src/racket/src/mzmark_syntax.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_rename_table_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_thread.inc b/src/racket/src/mzmark_thread.inc
index d88122e4b4..6846b888cd 100644
--- a/src/racket/src/mzmark_thread.inc
+++ b/src/racket/src/mzmark_thread.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_parameterization_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_type.inc b/src/racket/src/mzmark_type.inc
index cd6ab819ae..9bb60dc918 100644
--- a/src/racket/src/mzmark_type.inc
+++ b/src/racket/src/mzmark_type.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int variable_obj_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmark_validate.inc b/src/racket/src/mzmark_validate.inc
index 47c1d56cc6..76844350f7 100644
--- a/src/racket/src/mzmark_validate.inc
+++ b/src/racket/src/mzmark_validate.inc
@@ -1,4 +1,4 @@
-/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
+/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
 
 static int mark_validate_clearing_SIZE(void *p, struct NewGC *gc) {
   return
diff --git a/src/racket/src/mzmarksrc.c b/src/racket/src/mzmarksrc.c
index 0fd07175a6..90080767d2 100644
--- a/src/racket/src/mzmarksrc.c
+++ b/src/racket/src/mzmarksrc.c
@@ -1457,11 +1457,8 @@ place_val {
 place_async_channel_val {
  mark:
   Scheme_Place_Async_Channel *pac = (Scheme_Place_Async_Channel *)p;
-  int i;
   gcMARK2(pac->msgs, gc);
   gcMARK2(pac->msg_memory, gc);
-  for (i = pac->size; i--; )
-    gcMARK2(pac->msgs[i], gc);
 
  size:
   gcBYTES_TO_WORDS(sizeof(Scheme_Place_Async_Channel));