diff --git a/lbuiltin.c b/lbuiltin.c
index 9b0e29fe..e0c9627b 100644
--- a/lbuiltin.c
+++ b/lbuiltin.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbuiltin.c,v 1.88 1999/12/27 13:04:53 roberto Exp roberto $
+** $Id: lbuiltin.c,v 1.89 1999/12/27 17:33:22 roberto Exp roberto $
 ** Built-in functions
 ** See Copyright Notice in lua.h
 */
@@ -94,7 +94,7 @@ static Hash *gettable (lua_State *L, int arg) {
 ** If your system does not support "stderr", redefine this function, or
 ** redefine _ERRORMESSAGE so that it won't need _ALERT.
 */
-void luaB__alert (lua_State *L) {
+void luaB__ALERT (lua_State *L) {
   fputs(luaL_check_string(L, 1), stderr);
 }
 
@@ -609,7 +609,7 @@ void luaB_sort (lua_State *L) {
 
 
 static const struct luaL_reg builtin_funcs[] = {
-  {"_ALERT", luaB__alert},
+  {"_ALERT", luaB__ALERT},
   {"_ERRORMESSAGE", luaB__ERRORMESSAGE},
   {"call", luaB_call},
   {"collectgarbage", luaB_collectgarbage},
diff --git a/lbuiltin.h b/lbuiltin.h
index e35b3ba4..565cd3ac 100644
--- a/lbuiltin.h
+++ b/lbuiltin.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lbuiltin.h,v 1.3 1999/12/14 18:33:29 roberto Exp roberto $
+** $Id: lbuiltin.h,v 1.4 1999/12/27 17:33:22 roberto Exp roberto $
 ** Built-in functions
 ** See Copyright Notice in lua.h
 */
@@ -9,7 +9,7 @@
 
 #include "lua.h"
 
-void luaB__alert (lua_State *L);
+void luaB__ALERT (lua_State *L);
 void luaB__ERRORMESSAGE (lua_State *L);
 void luaB_print (lua_State *L);
 void luaB_tonumber (lua_State *L);