Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 5308)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 5309)
@@ -118,6 +118,4 @@
 			     (process-exit-application *current-process*
                                                        #'(lambda ()
-                                                           (fresh-line *stdout*)
-                                                           (force-output *stdout*)
                                                            (#_exit exit-status)))))
       (unless (eq cp ip)