diff --git a/lobject.h b/lobject.h
index 18cf2097..09f0d4e5 100644
--- a/lobject.h
+++ b/lobject.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.h,v 1.20 1998/06/11 18:21:37 roberto Exp roberto $
+** $Id: lobject.h,v 1.21 1998/06/18 16:57:03 roberto Exp roberto $
 ** Type definitions for Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -192,6 +192,9 @@ typedef struct Hash {
 
 extern char *luaO_typenames[];
 
+#define luaO_typename(o)        luaO_typenames[-ttype(o)]
+
+
 extern TObject luaO_nilobject;
 
 int luaO_equalObj (TObject *t1, TObject *t2);