Index: /trunk/ccl/examples/cocoa-defaults.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-defaults.lisp	(revision 630)
+++ /trunk/ccl/examples/cocoa-defaults.lisp	(revision 631)
@@ -71,12 +71,15 @@
     
 (defun update-cocoa-defaults ()
-  (let* ((domain (send (@class "NSUserDefaults") 'standard-user-defaults)))
+  (let* ((domain (send (@class "NSUserDefaults") 'standard-user-defaults))
+         (need-synch nil))
     (dolist (d (cocoa-defaults))
       (let* ((name (cocoa-default-symbol d))
              (key (objc-constant-string-nsstringptr (cocoa-default-string d))))
 	(if (%null-ptr-p (send domain :object-for-key key))
-	  (send domain
-		:set-object (%make-nsstring (format nil "~a" (cocoa-default-value d)))
-		:for-key key)
+          (progn
+            (send domain
+                  :set-object (%make-nsstring (format nil "~a" (cocoa-default-value d)))
+                  :for-key key)
+            (setq need-synch t))
 	  (case (cocoa-default-type d)
 	    (:int
@@ -88,6 +91,5 @@
 	       (unless (%null-ptr-p nsstring)
 		 (set name (lisp-string-from-nsstring nsstring)))))))))
-    (send domain 'synchronize)
-    (send domain 'dictionary-representation)))
+    (when need-synch (send domain 'synchronize))))