1 files changed, 5 insertions, 2 deletions
diff --git a/tex/context/base/mkxl/mlib-mpf.lmt b/tex/context/base/mkxl/mlib-mpf.lmt
index 6bd31376c..d66491a16 100644
--- a/tex/context/base/mkxl/mlib-mpf.lmt
+++ b/tex/context/base/mkxl/mlib-mpf.lmt
@@ -86,12 +86,10 @@ do
         else
             runscripts[nofscripts] = name
         end
--- print("set",name,nofscripts,f)
         return nofscripts
     end
 
     function metapost.scriptindex(name)
--- print("get",name,runnames[name] or 0)
         return runnames[name] or 0
     end
 
@@ -945,9 +943,14 @@ do
     registerscript("setcount", function() setcount(scanstring(),scannumeric()) end)
     registerscript("settoks",  function() settoks (scanstring(),scanstring()) end)
 
+    local utfnum = utf.byte
     local utflen = utf.len
     local utfsub = utf.sub
 
+    registerscript("utfnum", function()
+        injectnumeric(utfnum(scanstring()))
+    end)
+
     registerscript("utflen", function()
         injectnumeric(utflen(scanstring()))
     end)