From 7614e7044b57b05b33007ee389c97a8527661589 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 26 May 2012 18:50:48 -0600
Subject: [PATCH] fix bug introduced by error-message conversion

---
 src/racket/src/place.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/place.c b/src/racket/src/place.c
index a8e530ba4d..cc928d7764 100644
--- a/src/racket/src/place.c
+++ b/src/racket/src/place.c
@@ -2873,10 +2873,11 @@ static void place_async_send(Scheme_Place_Async_Channel *ch, Scheme_Object *uo)
   o = places_serialize(uo, &msg_memory, &master_chain, &invalid_object);
   if (!o) {
     if (invalid_object) {
-      scheme_contract_error("place-channel-put"
+      scheme_contract_error("place-channel-put",
                             "value not allowed in a message", 
                             "value", 1, invalid_object,
-                            "message", 1, uo);
+                            "message", 1, uo,
+                            NULL);
     }
     else bad_place_message(uo);
   }