From b232f572a91fc7c09747320fce6485c576952998 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 4 Jul 2013 13:41:27 -0600
Subject: [PATCH] add missing GC traversal-function registration

Related to places and place messages.

(Bug found by running tests in GC-stress mode.)
---
 racket/src/racket/src/type.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/racket/src/racket/src/type.c b/racket/src/racket/src/type.c
index 5c4a2f3777..985c485b41 100644
--- a/racket/src/racket/src/type.c
+++ b/racket/src/racket/src/type.c
@@ -615,6 +615,7 @@ void scheme_register_traversers(void)
   GC_REG_TRAV(scheme_symbol_type, symbol_obj);
 #ifdef MZ_USE_PLACES  
   GC_REG_TRAV(scheme_serialized_symbol_type, bstring_obj);
+  GC_REG_TRAV(scheme_serialized_keyword_type, bstring_obj);
   GC_REG_TRAV(scheme_place_dead_type, small_object);
 #endif
   GC_REG_TRAV(scheme_keyword_type, symbol_obj);