From bbf31dfaa87af1af32c3efc44825ffb45afc7b39 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 19 Dec 2005 19:33:24 +0000
Subject: [PATCH] Another 3m fix for latest Apple tools

svn: r1650
---
 src/wxmac/src/mac/wx_app.cc | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/wxmac/src/mac/wx_app.cc b/src/wxmac/src/mac/wx_app.cc
index ce144a66a4..9ba2f115f8 100644
--- a/src/wxmac/src/mac/wx_app.cc
+++ b/src/wxmac/src/mac/wx_app.cc
@@ -827,9 +827,11 @@ void wxApp::doMacKeyUpDown(Bool down)
 						GetScriptManagerVariable(smKeyScript),
 						kCFAllocatorNull);
 	  if (str) {
-	    if (CFStringGetLength(str) > 0)
-	      CFStringGetCharacters(str, CFRangeMake(0, 1), keys);
-	    else
+	    if (CFStringGetLength(str) > 0) {
+	      GC_CAN_IGNORE CFRange rng;
+	      rng = CFRangeMake(0, 1);
+	      CFStringGetCharacters(str, rng, keys);
+	    } else
 	      keys[0] = '?';
 	    CFRelease(str);
 	  } else