Index: /trunk/ccl/lib/format.lisp
===================================================================
--- /trunk/ccl/lib/format.lisp	(revision 7775)
+++ /trunk/ccl/lib/format.lisp	(revision 7776)
@@ -2151,5 +2151,4 @@
 	(setq response (read-char *query-io*))
         (when (peek-char #\NewLine *query-io* nil)
-          (unread-char #\NewLine *query-io*)
           (read-char *query-io*))
         (clear-input *query-io*)