Index: /branches/ide-1.0/ccl/examples/cocoa-editor.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-editor.lisp	(revision 6797)
+++ /branches/ide-1.0/ccl/examples/cocoa-editor.lisp	(revision 6798)
@@ -28,5 +28,5 @@
 (def-cocoa-default *editor-columns* :int 80 "Initial width of editor windows, in characters")
 
-(def-cocoa-default *editor-background-color* :color (#/whiteColor ns:ns-color) "Editor background color")
+(def-cocoa-default *editor-background-color* :color '(1.0 1.0 1.0 1.0) "Editor background color")
 
 
@@ -2108,5 +2108,5 @@
 (defloadvar *ns-cr-string* (%make-nsstring (string #\return)))
 (defloadvar *ns-lf-string* (%make-nsstring (string #\linefeed)))
-(defloadvar *ns-crlf-string* (#/stringByAppendingString: *ns-cr-string* *ns-lf-string*))
+(defloadvar *ns-crlf-string* (with-autorelease-pool (#/retain (#/stringByAppendingString: *ns-cr-string* *ns-lf-string*))))
 
 (objc:defmethod (#/writeToURL:ofType:error: :<BOOL>)