Index: /trunk/ccl/examples/cocoa-window.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-window.lisp	(revision 704)
+++ /trunk/ccl/examples/cocoa-window.lisp	(revision 705)
@@ -265,4 +265,5 @@
                (send *NSApp* :set-application-icon-image
                      (send (@class ns-image) :image-Named #@"NSApplicationIcon"))
+               (setf (application-ui-object *application*) *NSApp*)
 
                (when application-proxy-class-name