--- gforth/prim	1999/05/06 21:33:32	1.29
+++ gforth/prim	1999/05/09 21:21:55	1.30
@@ -1636,7 +1636,7 @@ wior=FILEIO(ferror((FILE *)wfileid));
 */
 if ((flag=FLAG(!feof((FILE *)wfileid) &&
 	       fgets(c_addr,u1+1,(FILE *)wfileid) != NULL))) {
-  wior=FILEIO(ferror((FILE *)wfileid)); /* !! ior? */
+  wior=FILEIO(ferror((FILE *)wfileid)!=0); /* !! ior? */
   if (wior)
     clearerr((FILE *)wfileid);
   u2 = strlen(c_addr);