`read("*w")' should return nil at EOF

bugs

@@ -198,3 +198,13 @@ Tue Aug 29 15:57:41 EST 2000
 >> gc tag method for nil could call line hook
 (by ry; since ?)
 
+
+
+=================================================================
+--- Version 4.0 Beta
+
+** liolib.c
+Fri Sep 22 15:12:37 EST 2000
+>> `read("*w")' should return nil at EOF
+(by roberto; since 4.0b)
+

liolib.c

@@ -1,5 +1,5 @@
 /*
-** $Id: liolib.c,v 1.83 2000/09/13 20:12:14 roberto Exp roberto $
+** $Id: liolib.c,v 1.84 2000/09/14 14:09:31 roberto Exp roberto $
 ** Standard I/O (and system) library
 ** See Copyright Notice in lua.h
 */
@@ -324,7 +324,7 @@ static int read_word (lua_State *L, FILE *f) {
   }
   ungetc(c, f);
   luaL_pushresult(&b);  /* close buffer */
-  return (lua_strlen(L, 1) > 0);
+  return (lua_strlen(L, -1) > 0);
 }