Index: /trunk/source/cocoa-ide/app-delegate.lisp
===================================================================
--- /trunk/source/cocoa-ide/app-delegate.lisp	(revision 14209)
+++ /trunk/source/cocoa-ide/app-delegate.lisp	(revision 14210)
@@ -59,5 +59,9 @@
   (declare (ignore notification))
   (initialize-user-interface)
-  (load-ide-init-file))
+  (let* ((event (#_CGEventCreate +null-ptr+))
+	 (flags (#_CGEventGetFlags event)))
+    (unless (logtest flags #$kCGEventFlagMaskShift)
+      (load-ide-init-file))
+    (#_CFRelease event)))
 
 (objc:defmethod (#/applicationWillTerminate: :void)