diff --git a/lua.stx b/lua.stx
index 437f1f88..3c2f6efa 100644
--- a/lua.stx
+++ b/lua.stx
@@ -1,11 +1,13 @@
 %{
 
-char *rcs_luastx = "$Id: lua.stx,v 1.3 1993/12/28 16:42:29 roberto Exp roberto $";
+char *rcs_luastx = "$Id: lua.stx,v 1.4 1994/02/13 20:38:20 roberto Exp celes $";
 
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 
+#include "mm.h"
+
 #include "opcode.h"
 #include "hash.h"
 #include "inout.h"
@@ -240,7 +242,7 @@ function     : FUNCTION NAME {pc=basepc=code; nlocalvar=0;} '(' parlist ')'
 		{
 		 align(Word,1);
 	         code_byte(SETFUNCTION); 
-                 code_word($1);
+                 code_word(lua_nfile-1);
 		 code_word($2);
 		}
 	        lua_codeadjust (0);