diff --git a/lobject.c b/lobject.c
index 0462fc8b..b68f7e98 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.c,v 1.14 1998/12/27 20:25:20 roberto Exp roberto $
+** $Id: lobject.c,v 1.15 1999/01/04 13:37:07 roberto Exp roberto $
 ** Some generic functions over Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -90,7 +90,7 @@ static double expten (unsigned int e) {
 }
 
 
-double luaO_str2d (char *s) {
+double luaO_str2d (char *s) {  /* LUA_NUMBER */
   double a = 0.0;
   int point = 0;
   if (!isdigit((unsigned char)*s) && !isdigit((unsigned char)*(s+1)))
diff --git a/ltm.c b/ltm.c
index 9b1faf09..f061e56c 100644
--- a/ltm.c
+++ b/ltm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltm.c,v 1.17 1998/08/21 17:43:44 roberto Exp roberto $
+** $Id: ltm.c,v 1.18 1998/12/22 18:10:50 roberto Exp roberto $
 ** Tag methods
 ** See Copyright Notice in lua.h
 */
@@ -46,8 +46,7 @@ static char validevents[NUM_TAGS][IM_N] = { /* ORDER LUA_T, ORDER IM */
 };
 
 
-static int validevent (int t, int e)
-{ /* ORDER LUA_T */
+static int validevent (int t, int e) {  /* ORDER LUA_T */
   return (t < LUA_T_NIL) ?  1 : validevents[-t][e];
 }
 
@@ -157,10 +156,9 @@ void luaT_settagmethod (int t, char *event, TObject *func)
 }
 
 
-char *luaT_travtagmethods (int (*fn)(TObject *))
-{
+char *luaT_travtagmethods (int (*fn)(TObject *)) {  /* ORDER IM */
   int e;
-  for (e=IM_GETTABLE; e<=IM_FUNCTION; e++) {  /* ORDER IM */
+  for (e=IM_GETTABLE; e<=IM_FUNCTION; e++) {
     int t;
     for (t=0; t>=L->last_tag; t--)
       if (fn(luaT_getim(t,e)))