Index: /branches/ide-1.0/ccl/examples/cocoa-listener.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6612)
+++ /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6613)
@@ -28,6 +28,7 @@
   ;; to the pty, it's critical that we make the pty non-blocking.
   ;; Has this been true for the last few years (native threads) ?
-  (fd-set-flag pty #$O_NONBLOCK)
+  ;(fd-set-flag pty #$O_NONBLOCK)
   (disable-tty-local-modes pty (logior #$ECHO #$ECHOCTL #$ISIG))
+  (disable-tty-output-modes pty #$ONLCR)  
   pty)
 
@@ -277,4 +278,6 @@
       (let* ((action (#/action item)))
         (cond
+          ((eql action (@selector #/revertDocumentToSaved:))
+           (values t nil))
           ((eql action (@selector #/interrupt:)) (values t t))
           ((eql action (@selector #/backtrace:))