Index: /branches/ide-1.0/ccl/examples/cocoa-defaults.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-defaults.lisp	(revision 6796)
+++ /branches/ide-1.0/ccl/examples/cocoa-defaults.lisp	(revision 6797)
@@ -55,5 +55,7 @@
                                           :doc doc
                                           :change-hook change-hook))
-  value)
+  (if (eq type :color)
+    (apply #'color-values-to-nscolor value)
+    value))
 
 ;;; Names which contain #\* confuse Cocoa Bindings.
@@ -126,5 +128,5 @@
                                (:color (#/archivedDataWithRootObject:
                                         ns:ns-archiver
-                                        value))
+                                        (apply #'color-values-to-nscolor value)))
                                (:bool (if value #@"YES" #@"NO"))
                                (t