From 9be864b2f88b47e4756b92ebc649622d661dde95 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Fri, 16 Mar 2012 08:39:58 -0600
Subject: [PATCH] Fix sync/timeout hang due to place channels - forgot to git
 add

---
 src/racket/src/place.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/place.c b/src/racket/src/place.c
index 22d5a60c73..d023703489 100644
--- a/src/racket/src/place.c
+++ b/src/racket/src/place.c
@@ -3127,7 +3127,7 @@ static void cleanup_msg_memmory(void *msg_memory) {
 static Scheme_Object *scheme_place_async_try_receive(Scheme_Place_Async_Channel *ch) {
   Scheme_Object *msg = NULL;
   void *msg_memory = NULL;
-  BEGIN_ESCAPEABLE();
+  BEGIN_ESCAPEABLE(cleanup_msg_memmory, msg_memory);
   msg = scheme_place_async_try_receive_raw(ch, &msg_memory);
   if (msg) {
     msg = scheme_places_deserialize(msg, msg_memory);