Index: /branches/ide-1.0/ccl/examples/cocoa-window.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-window.lisp	(revision 6724)
+++ /branches/ide-1.0/ccl/examples/cocoa-window.lisp	(revision 6725)
@@ -37,4 +37,5 @@
 (defun init-cocoa-application ()
   (with-autorelease-pool
+      (#/standardUserDefaults ns:ns-user-defaults)
       (let* ((bundle (open-main-bundle))
 	     (dict (#/infoDictionary  bundle))
@@ -169,5 +170,5 @@
 (objc:defmethod (#/showPreferences: :void) ((self lisp-application) sender)
   (declare (ignore sender))
-  (#/show (#/sharedPanel preferences-panel)))
+  (#/show (#/sharedPanel lisp-preferences-panel)))
 
 (objc:defmethod (#/toggleTypeout: :void) ((self lisp-application) sender)