Index: /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp	(revision 7730)
+++ /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp	(revision 7731)
@@ -415,5 +415,7 @@
   "Print a message and invoke the debugger without allowing any possibility
    of condition handling occurring."
-  (apply #'%break-in-frame (%get-frame-ptr) string args))
+  (if *batch-flag*
+    (apply #'error string args)
+    (apply #'%break-in-frame (%get-frame-ptr) string args)))
 
 (defun %break-in-frame (fp &optional string &rest args)