Index: /trunk/source/cocoa-ide/hemlock/src/macros.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/macros.lisp	(revision 13133)
+++ /trunk/source/cocoa-ide/hemlock/src/macros.lisp	(revision 13134)
@@ -348,6 +348,8 @@
    these are errors that a normal user could encounter in the course of editing
    such as a search failing or an attempt to delete past the end of the buffer."
-  (let ((message (and args (apply #'format nil args))))
-    (abort-current-command message)))
+  (if (current-view)
+    (let ((message (and args (apply #'format nil args))))
+      (abort-current-command message))
+    (apply #'error args)))