bug#72373: srfi-64: test-assert evaluates test-name multiple times

Hello,

I think I found a bug in (srfi srfi-64) module shipped with GNU Guile.

The specification says the following regarding the test-assert:

> Though the test-name is a string literal in the examples, it is an
> expression. It is evaluated only once.

However the test-name is evaluated multiple times:

    (use-modules (srfi srfi-64))
    (test-begin "x")
    (test-assert (pk "t") #t)

Leading to:

    ;;; ("t")

    ;;; ("t")

Have a nice day
Tomas Volf