Index: /trunk/source/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/source/level-1/l1-readloop-lds.lisp	(revision 13344)
+++ /trunk/source/level-1/l1-readloop-lds.lisp	(revision 13345)
@@ -492,5 +492,8 @@
             (*debugger-hook* nil))
         (funcall hook condition hook)))
-    (%break-message "Error" condition)
+    (let ((msg (if *batch-flag* ;; Give a little more info if exiting
+                 (format nil "Error of type ~s" (type-of condition))
+                 "Error")))
+      (%break-message msg condition))
     (let* ((s *error-output*))
       (dolist (bogusness bogus-globals)