diff --git a/source/texk/web2c/luatexdir/lua/lnewtokenlib.c b/source/texk/web2c/luatexdir/lua/lnewtokenlib.c
index 09a51bd10636edaa1bd22adb1753e2e50ce73d34..1c2bd8533f0ff8f4fe10fae1b783645888b26712 100644
--- a/source/texk/web2c/luatexdir/lua/lnewtokenlib.c
+++ b/source/texk/web2c/luatexdir/lua/lnewtokenlib.c
@@ -1271,7 +1271,7 @@ static int set_char(lua_State * L)
     if (n < 2)
         return 0;
     name = lua_tolstring(L, 1, &lname);
-    if (name == null)
+    if (name == NULL)
         return 0;
     value = lua_tointeger(L, 2);
     if (value < 0)
diff --git a/source/texk/web2c/luatexdir/lua/lpdfelib.c b/source/texk/web2c/luatexdir/lua/lpdfelib.c
index 8f4f56d2d1e8e7ebe36cee453971bacd605fa77e..455ed9b047916b993b5e074eeacd843aa494b63f 100644
--- a/source/texk/web2c/luatexdir/lua/lpdfelib.c
+++ b/source/texk/web2c/luatexdir/lua/lpdfelib.c
@@ -259,7 +259,7 @@ define_to_string(stream,    "pdfe.stream")
 static int pdfelib_tostring_reference(lua_State * L) { \
     pdfe_reference *p = check_isreference(L, 1); \
     if (p != NULL) { \
-        lua_pushfstring(L, "<pdfe.reference " "%i>", (int) p->onum); \
+        lua_pushfstring(L, "<pdfe.reference " "%d>",  p->onum); \
         return 1; \
     } \
     return 0; \
diff --git a/source/texk/web2c/luatexdir/luatex_svnversion.h b/source/texk/web2c/luatexdir/luatex_svnversion.h
index f82ab3bb193109217a3347e2998de77d055b5d0c..75bbf0254f9a1bd273291231a4f9f4365e857475 100644
--- a/source/texk/web2c/luatexdir/luatex_svnversion.h
+++ b/source/texk/web2c/luatexdir/luatex_svnversion.h
@@ -1 +1 @@
-#define luatex_svn_revision 7124
+#define luatex_svn_revision 7127
diff --git a/source/texk/web2c/mplibdir/mp.w b/source/texk/web2c/mplibdir/mp.w
index dc3a7e1b8795495c6d5ce828d374796ce7ffbf3c..682fb4e53fce607600f781bff4968181884fc67d 100644
--- a/source/texk/web2c/mplibdir/mp.w
+++ b/source/texk/web2c/mplibdir/mp.w
@@ -2948,7 +2948,7 @@ void *mp_xmalloc (MP mp, size_t nmem, size_t size) {
     mp_jump_out (mp);
   }
 #endif
-  w = malloc (nmem * size);
+  w = calloc(nmem, size); /* TODO: check an un-initialize use of w and replace calloc with malloc. */
   if (w == NULL) {
     mp_fputs ("Out of memory!\n", mp->err_out);
     mp->history = mp_system_error_stop;