[NTG-context] gzip.compress in ConTeXt mkiv

[Marcel Fabian Krüger]

Hi,

The following document

  \directlua{
    local arch = gzip.compress"I will become much much smaller, once the overhead is compensated"
    local orig = gzip.decompress(arch)
    print(arch:len(), orig:len(), orig)
  }
  \starttext
  \stoptext

used to work in ConTeXt mkiv and still works in ConTeXt lmtx, but for
current mkiv versions it breaks with

  ...mtx/tex/texmf-context/tex/context/base/mkiv/util-zip.lua:610: attempt to call a nil value (upvalue 'tocardinal1')
  stack traceback:
	  ...mtx/tex/texmf-context/tex/context/base/mkiv/util-zip.lua:610: in upvalue 'putcompressed'
	  ...mtx/tex/texmf-context/tex/context/base/mkiv/util-zip.lua:662: in function 'gzip.compress'
	  [ctxlua]:1: in main chunk

Best regards,
Marcel