Index: /trunk/ccl/lib/format.lisp
===================================================================
--- /trunk/ccl/lib/format.lisp	(revision 7776)
+++ /trunk/ccl/lib/format.lisp	(revision 7777)
@@ -2150,5 +2150,7 @@
         (princ " (y or n)  " *query-io*)
 	(setq response (read-char *query-io*))
+        ;; Consume input up to trailing newline
         (when (peek-char #\NewLine *query-io* nil)
+          ;; And consume the #\newline
           (read-char *query-io*))
         (clear-input *query-io*)