Index: /trunk/source/lisp-kernel/lisp-debug.c
===================================================================
--- /trunk/source/lisp-kernel/lisp-debug.c	(revision 8414)
+++ /trunk/source/lisp-kernel/lisp-debug.c	(revision 8415)
@@ -82,5 +82,5 @@
     case EOF:
       if (ferror(stdin)) {
-	if (errno == EINTR) {
+	if ((errno == EINTR) || (errno == EIO)) {
 	  continue;
 	}