From d164e2294f73d8e69f00d95a66014514b2dd0ec0 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 23 Feb 2001 10:38:56 -0300
Subject: [PATCH] _ERRORMESSAGE called through get global tag method

---
 ldo.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ldo.c b/ldo.c
index 3685dc8d..30c0c241 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 1.125 2001/02/22 17:15:18 roberto Exp roberto $
+** $Id: ldo.c,v 1.126 2001/02/22 18:59:59 roberto Exp roberto $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -335,9 +335,8 @@ struct lua_longjmp {
 
 
 static void message (lua_State *L, const char *s) {
-  const TObject *em = luaH_getstr(L->gt, luaS_newliteral(L, LUA_ERRORMESSAGE));
-  if (ttype(em) == LUA_TFUNCTION) {
-    setobj(L->top, em);
+  luaV_getglobal(L, luaS_newliteral(L, LUA_ERRORMESSAGE), L->top);
+  if (ttype(L->top) == LUA_TFUNCTION) {
     incr_top;
     setsvalue(L->top, luaS_new(L, s));
     incr_top;