From ef645e466c5208bd02149c393eb57c4fd95e80e6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 12 May 2007 10:25:58 +0000
Subject: [PATCH] fix allocation of too-small buffer for regexp filter error
 message

svn: r6212
---
 src/mzscheme/src/regexp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/regexp.c b/src/mzscheme/src/regexp.c
index 9df4477601..56f44460a1 100644
--- a/src/mzscheme/src/regexp.c
+++ b/src/mzscheme/src/regexp.c
@@ -5106,7 +5106,7 @@ static char *build_call_name(const char *n)
   char *m;
   int l;
   l = strlen(n);
-  m = (char *)scheme_malloc_atomic(l + 32);
+  m = (char *)scheme_malloc_atomic(l + 42);
   memcpy(m, n, l);
   strcpy(m XFORM_OK_PLUS l, " (calling given filter procedure)");
   return m;