The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
diff -u src/mac/carbon/fontdlgosx.mm src/mac/carbon/fontdlgosx.mm
--- src/mac/carbon/fontdlgosx.mm	2007/01/22 21:46:14	44296
+++ src/mac/carbon/fontdlgosx.mm	2009/09/01 13:36:08	61800
@@ -169,7 +169,11 @@
 
     NSModalSession session = [NSApp beginModalSessionForWindow:fontPanel];
 
-    [NSApp runModalSession:session];
+    for (;;)
+    {
+        if ([NSApp runModalSession:session] != NSRunContinuesResponse)
+            break;
+    }
 
     [NSApp endModalSession:session];