Index: /trunk/source/cocoa-ide/cocoa-utils.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-utils.lisp	(revision 15063)
+++ /trunk/source/cocoa-ide/cocoa-utils.lisp	(revision 15064)
@@ -159,8 +159,14 @@
 
 
-(defun new-listener ()
+(defun new-listener (&key (inhibit-greeting ccl::*inhibit-greeting*))
   (let ((wptr (execute-in-gui (lambda ()
                                 (declare (special hemlock-listener-document))
-                                (#/newListener: (#/delegate *NSApp*) (%null-ptr))
+                                ;; TODO: fix this.
+                                (let ((old ccl::*inhibit-greeting*))
+                                  (unwind-protect
+                                      (progn
+                                        (setq ccl::*inhibit-greeting* inhibit-greeting)
+                                        (#/newListener: (#/delegate *NSApp*) (%null-ptr)))
+                                    (setq ccl::*inhibit-greeting* old)))
                                 (let ((doc (#/topListener hemlock-listener-document)))
                                   (unless (%null-ptr-p doc)