Index: /trunk/ccl/level-1/linux-files.lisp
===================================================================
--- /trunk/ccl/level-1/linux-files.lisp	(revision 835)
+++ /trunk/ccl/level-1/linux-files.lisp	(revision 836)
@@ -629,6 +629,4 @@
         (return))
       (if in-fd
-        (progn
-          (format t "~& waiting for input")
         (when (fd-input-available-p in-fd *ticks-per-second*)
           (%stack-block ((buf 1024))
@@ -644,5 +642,5 @@
                   (declare (dynamic-extent string))
                   (%copy-ptr-to-ivector buf 0 string 0 n)
-                  (write-sequence string out-stream :end n))))))))
+                  (write-sequence string out-stream :end n)))))))
       (let* ((statusflags (check-pid (external-process-pid p)
                                      (logior