diff --git a/collects/mred/private/wx/cocoa/queue.rkt b/collects/mred/private/wx/cocoa/queue.rkt
index 00c363ab..d0ac5d21 100644
--- a/collects/mred/private/wx/cocoa/queue.rkt
+++ b/collects/mred/private/wx/cocoa/queue.rkt
@@ -106,15 +106,11 @@
 (define-appserv TransformProcessType (_fun _ProcessSerialNumber-pointer
                                            _uint32
                                            -> _OSStatus))
-(let ([v (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess)
-                               kProcessTransformToForegroundApplication)])
-  (unless (or (zero? v)
-	      ;; As of Mac OS X 10.7, TransformProcessType() complains
-	      ;; if the application is already a foreground application,
-	      ;; so just ignore that error (even though it correctly flagged
-	      ;; a bug in the `_ProcessSerialNumber' definition at one point).
-	      (= v -50))
-    (log-error (format "error from TransformProcessType: ~a" v))))
+(unless (scheme_register_process_global "PLT_IS_FOREGROUND_APP" #f)
+  (let ([v (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess)
+                                 kProcessTransformToForegroundApplication)])
+    (unless (zero? v)
+      (log-error (format "error from TransformProcessType: ~a" v)))))
 
 (define app-delegate (tell (tell MyApplicationDelegate alloc) init))
 (tellv app setDelegate: app-delegate)