Index: /trunk/ccl/examples/cocoa-editor.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-editor.lisp	(revision 610)
+++ /trunk/ccl/examples/cocoa-editor.lisp	(revision 611)
@@ -439,7 +439,9 @@
 ;;; small, but allows us to see more of the modeline fields (like the
 ;;; full pathname) in more cases.
+
 (defloadvar *modeline-text-attributes* nil)
-(defparameter *modeline-font-name* "Courier New Bold Italic")
-(defparameter *modeline-font-size* 10.0)
+
+(def-cocoa-default *modeline-font-name* :string "Courier New Bold Italic")
+(def-cocoa-default  *modeline-font-size* :float 10.0)
 
 
@@ -928,5 +930,5 @@
           (force-output)
 	  (send textstorage
-                :edited #$NSTextStorageEditedCharacters
+                :edited #$NSTextStorageEditedAttributes
                 :range (ns-make-range pos n)
                 :change-in-length (- n))
@@ -1138,9 +1140,9 @@
 
 (define-objc-method ((:void close) lisp-editor-document)
-  (send-super 'close)
   (let* ((textstorage (slot-value self 'textstorage)))
     (setf (slot-value self 'textstorage) (%null-ptr))
     (unless (%null-ptr-p textstorage)
-      (close-hemlock-textstorage textstorage))))
+      (close-hemlock-textstorage textstorage)))
+    (send-super 'close))