Index: /branches/ide-1.0/ccl/hemlock/src/cocoa-hemlock.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/cocoa-hemlock.lisp	(revision 6653)
+++ /branches/ide-1.0/ccl/hemlock/src/cocoa-hemlock.lisp	(revision 6654)
@@ -92,5 +92,6 @@
         (setq *last-key-event-typed* (event-queue-node-event e)))
     (if (typep e 'buffer-operation)
-      (funcall (buffer-operation-thunk e)))))
+      (catch 'command-loop-catcher
+        (funcall (buffer-operation-thunk e))))))
 
 (defun listen-editor-input (q)