Index: /trunk/ccl/hemlock/src/macros.lisp
===================================================================
--- /trunk/ccl/hemlock/src/macros.lisp	(revision 734)
+++ /trunk/ccl/hemlock/src/macros.lisp	(revision 735)
@@ -642,4 +642,11 @@
 ;;; handling.
 ;;;
+
+(defun lisp-error-error-handler (condition &optional internalp)
+  (declare (ignore internalp))
+  (report-hemlock-error condition)
+  (throw 'editor-top-level-catcher nil))
+
+#+no
 (defun lisp-error-error-handler (condition &optional internalp)
   (invoke-debugger condition)