Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 7698)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 7699)
@@ -161,5 +161,7 @@
         (close (car streams))))
     (setf (interrupt-level) -1)         ; can't abort after this
-    ))
+    )
+  ;; Didn't abort, so really quitting.
+  (setq *quitting* t))