Index: /branches/ide-1.0/ccl/hemlock/src/buffer.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/buffer.lisp	(revision 6694)
+++ /branches/ide-1.0/ccl/hemlock/src/buffer.lisp	(revision 6695)
@@ -436,9 +436,10 @@
                            (unwind-protect
                                 (progn
-                                  (when doc (document-end-editing doc))
+                                  ;(when doc (document-end-editing doc))
                                   (if handle-abort
                                     (loop (catch 'editor-top-level-catcher
                                             (%command-loop)))
                                     (%command-loop)))
+                             #+nil
                              (when doc (document-begin-editing doc)))))