Index: /trunk/source/cocoa-ide/cocoa-editor.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 14659)
+++ /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 14660)
@@ -594,4 +594,6 @@
         (#/replaceCharactersInRange:withString:
          mirror replacerange replacestring))
+      #+cocotron
+      (#/updateChangeCount: document #$NSChangeDone)
       (when (and undo-mgr (not (#/isUndoing undo-mgr)))
         (#/replaceCharactersAtPosition:length:withString:
@@ -621,4 +623,6 @@
 				      range (- n))
       (#/deleteCharactersInRange: mirror range)
+      #+cocotron
+      (#/updateChangeCount: document #$NSChangeDone)      
       (when (and undo-mgr (not (#/isUndoing undo-mgr)))
         (#/replaceCharactersAtPosition:length:withString:
@@ -645,4 +649,6 @@
       (#/edited:range:changeInLength: self (logior #$NSTextStorageEditedCharacters
                                                    #$NSTextStorageEditedAttributes) range 0)
+      #+cocotron
+      (#/updateChangeCount: document #$NSChangeDone)      
       (when (and undo-mgr (not (#/isUndoing undo-mgr)))
         (#/replaceCharactersAtPosition:length:withString: