testsuite-error: FAIL: tests/list-pk-algorithms.scm

guile-gnutls has started throwing in testsuite error:

FAIL: tests/list-pk-algorithms.scm
==================================


throw to `wrong-type-arg' with args ("pk-algorithm->string" "Wrong type argument in position ~A: ~S" (1 #f) (#f)) [PID 149538]
          16 (primitive-load "/dev/shm/GUILE-GNUTLS/guile-gnutls-4.0?")
In ice-9/eval.scm:
    155:9 15 (_ #(#(#<directory (gnutls build tests) 7f783a809dc0>) ?))
In ice-9/boot-9.scm:
  1747:15 14 (with-exception-handler #<procedure 7f7837d12c00 at ic?> ?)
  1752:10 13 (with-exception-handler _ _ #:unwind? _ # _)
In ice-9/eval.scm:
    619:8 12 (_ #(#(#(#<directory (guile-user) 7f783a8b4c80>)) (# ?)))
    259:9 11 (_ #(#(#(#<directory (guile-user) 7f783a8b4c80>)) (# ?)))
    159:9 10 (_ #(#(#(#<directory (guile-user) 7f783a8b4c80>)) (# ?)))
In ice-9/boot-9.scm:
   222:29  9 (map1 (#<gnutls-pk-algorithm-enum RSA> #<gnutls-pk-a?> ?))
   222:29  8 (map1 (#<gnutls-pk-algorithm-enum RSA-PSS> #f #<gnut?> ?))
   222:17  7 (map1 (#f #<gnutls-pk-algorithm-enum RSA> #<gnutls-p?> ?))
In unknown file:
           6 (pk-algorithm->string #f)
In ice-9/boot-9.scm:
  1685:16  5 (raise-exception _ #:continuable? _)
  1780:13  4 (_ #<&compound-exception components: (#<&assertion-fail?>)
In ice-9/eval.scm:
    619:8  3 (_ #(#(#<directory (gnutls build tests) 7f783a809dc0>) ?))
In ice-9/boot-9.scm:
    142:2  2 (dynamic-wind #<procedure 7f783a962180 at ice-9/eval.s?> ?)
In ice-9/eval.scm:
    159:9  1 (_ #(#(#<directory (gnutls build tests) 7f783a809dc0> ?)))
In unknown file:
           0 (make-stack #t)
FAIL tests/list-pk-algorithms.scm (exit status: 1)

I do not know when the breakage started but the obvious candidate is a gnutls change, it worked in September (against gnutls 3.8.1) and fails now with gnutls 3.8.5.