Index: unix/tclUnixChan.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixChan.c,v
retrieving revision 1.17.2.1
diff -b -c -r1.17.2.1 tclUnixChan.c
*** unix/tclUnixChan.c	2001/04/03 22:54:39	1.17.2.1
--- unix/tclUnixChan.c	2001/09/12 19:38:26
***************
*** 1344,1349 ****
--- 1344,1356 ----
  	translation = "auto crlf";
  	channelTypePtr = &ttyChannelType;
  	fsPtr = TtyInit(fd);
+     } else if ( errno == EIO ) { 
+ 	close(fd); 
+ 	if (interp != (Tcl_Interp *) NULL) { 
+ 	    Tcl_AppendResult(interp, "Error in open \"", fileName, "\": ", 
+ 		    Tcl_PosixError(interp), (char *) NULL); 
+ 	} 
+ 	return NULL; 
      } else 
  #endif	/* SUPPORTS_TTY */
      {
