--- lua5.1-5.1.5.orig/src/ldo.c	2012-01-17 21:27:10.000000000 -0500
+++ lua5.1-5.1.5/src/ldo.c	2014-09-02 12:01:46.575057692 -0400
@@ -274,7 +274,7 @@
     CallInfo *ci;
     StkId st, base;
     Proto *p = cl->p;
-    luaD_checkstack(L, p->maxstacksize);
+    luaD_checkstack(L, p->maxstacksize + p->numparams);
     func = restorestack(L, funcr);
     if (!p->is_vararg) {  /* no varargs? */
       base = func + 1;