Index: /trunk/ccl/examples/cocoa-listener.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-listener.lisp	(revision 611)
+++ /trunk/ccl/examples/cocoa-listener.lisp	(revision 612)
@@ -48,5 +48,5 @@
 		 :perform-selector-on-main-thread (@selector "close")
 		 :with-object (%null-ptr)
-		 :wait-until-done nil))))
+		 :wait-until-done t))))
    #'(lambda ()
        (setq *listener-autorelease-pool* (create-autorelease-pool))