Index: /trunk/source/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/source/level-1/l1-readloop-lds.lisp	(revision 8204)
+++ /trunk/source/level-1/l1-readloop-lds.lisp	(revision 8205)
@@ -409,4 +409,9 @@
   (break-loop-handle-error condition error-pointer))
 
+(defun abnormal-application-exit ()
+  (print-call-history)
+  (force-output *debug-io*)
+  (quit -1))
+
 (defun break-loop-handle-error (condition error-pointer)
   (multiple-value-bind (bogus-globals newvals oldvals) (%check-error-globals)