Index: /trunk/ccl/examples/cocoa-window.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-window.lisp	(revision 816)
+++ /trunk/ccl/examples/cocoa-window.lisp	(revision 817)
@@ -139,5 +139,5 @@
 
 ;;; This is a reverse-engineered version of most of -[NSApplication terminate],
-;;; split off this way because we don't necessarily wamt to just do
+;;; split off this way because we don't necessarily want to just do
 ;;  (#_exit 0) when we've shut down the Cocoa UI.
 #+apple-objc
@@ -262,4 +262,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
@@ -352,20 +353,20 @@
   (let* ((dict (make-objc-instance
 		'ns-mutable-dictionary
-		:with-capacity (if color 3 2))))
+		:with-capacity 5)))
     (send dict 'retain)
     (send dict
 	  :set-object (create-paragraph-style font line-break-mode)
-	  :for-key #@"NSParagraphStyle")
-    (send dict :set-object font :for-key #@"NSFont")
+	  :for-key #?NSParagraphStyleAttributeName)
+    (send dict :set-object font :for-key #?NSFontAttributeName)
     (when color
-      (send dict :set-object color :for-key #@"NSColor"))
+      (send dict :set-object color :for-key #?NSForegroundColorAttributeName))
     (when stroke-width
       (send dict :set-object (make-objc-instance 'ns:ns-number
                                                 :with-float (float stroke-width))
-            :for-key #@"NSStrokeWidth"))
+            :for-key #?NSStrokeWidthAttributeName))
     (when obliqueness
       (send dict :set-object (make-objc-instance 'ns:ns-number
                                                 :with-float (float obliqueness))
-            :for-key #@"NSObliqueness"))
+            :for-key #?NSObliquenessAttributeName))
     dict))