*** io.c.orig	ven 12 mar 16:12:41 MET 1999
--- io.c	ven 12 mar 15:59:57 MET 1999
***************
*** 160,165 ****
--- 160,168 ----
    /* Otherwise */
    switch (TYPE(port)) {
      case tc_iport : for ( ; ; ) {
+ #ifdef OSF1      
+ 		      errno = 0; /* OSF does not set errno to 0 before a read ! */
+ #endif 
  		      SYSTEM(result=getc(PORT_FILE(port)));
  		      if (result != EOF || errno != EINTR) break;
  		    }