diff --git a/llex.c b/llex.c
index db4ff12e..7030e62d 100644
--- a/llex.c
+++ b/llex.c
@@ -1,5 +1,5 @@
 /*
-** $Id: llex.c,v 1.105 2002/06/18 15:19:27 roberto Exp roberto $
+** $Id: llex.c,v 1.106 2002/06/25 19:18:20 roberto Exp roberto $
 ** Lexical Analyzer
 ** See Copyright Notice in lua.h
 */
@@ -160,7 +160,7 @@ static size_t readname (LexState *LS) {
 
 
 /* LUA_NUMBER */
-static void read_number (LexState *LS, int comma, SemInfo *seminfo) {
+static void read_numeral (LexState *LS, int comma, SemInfo *seminfo) {
   lua_State *L = LS->L;
   size_t l = 0;
   checkbuffer(L, l);
@@ -367,7 +367,7 @@ int luaX_lex (LexState *LS, SemInfo *seminfo) {
         }
         else if (!isdigit(LS->current)) return '.';
         else {
-          read_number(LS, 1, seminfo);
+          read_numeral(LS, 1, seminfo);
           return TK_NUMBER;
         }
       }
@@ -380,7 +380,7 @@ int luaX_lex (LexState *LS, SemInfo *seminfo) {
           continue;
         }
         else if (isdigit(LS->current)) {
-          read_number(LS, 0, seminfo);
+          read_numeral(LS, 0, seminfo);
           return TK_NUMBER;
         }
         else if (isalpha(LS->current) || LS->current == '_') {
@@ -405,3 +405,4 @@ int luaX_lex (LexState *LS, SemInfo *seminfo) {
   }
 }
 
+#undef next