Index: /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp	(revision 8062)
+++ /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp	(revision 8063)
@@ -402,4 +402,5 @@
 (defun abnormal-application-exit ()
   (print-call-history)
+  (force-output *debug-io*)
   (quit -1))