From 7ccd4a4a615146b6303227fcc25b288c93a062ff Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 19 Dec 2005 17:50:16 +0000
Subject: [PATCH] 3m fix, maybe

svn: r1649
---
 src/mzscheme/src/string.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/string.c b/src/mzscheme/src/string.c
index fb1ca875bb..a295267eb5 100644
--- a/src/mzscheme/src/string.c
+++ b/src/mzscheme/src/string.c
@@ -2975,6 +2975,7 @@ mzchar *do_native_recase(int to_up, mzchar *in, int delta, int len, long *olen)
 {
   CFMutableStringRef mstr;
   CFStringRef str;
+  GC_CAN_IGNORE CFRange rng;
   char *result;
 
   str = CFStringCreateWithBytes(NULL, ((char *)in) XFORM_OK_PLUS (delta * 2), (len * 2), kCFStringEncodingUnicode, FALSE);
@@ -2991,7 +2992,8 @@ mzchar *do_native_recase(int to_up, mzchar *in, int delta, int len, long *olen)
 
   result = (char *)scheme_malloc_atomic((len + 1) * 2);
 
-  CFStringGetCharacters(mstr, CFRangeMake(0, len), (UniChar *)result);
+  rng = CFRangeMake(0, len);
+  CFStringGetCharacters(mstr, rng, (UniChar *)result);
   CFRelease(mstr);
 
   ((UniChar *)result)[len] = 0;