multiline block comment not accepted by consult/1 predicate

[Jean-Luc-Picard-2021]

If I use this Prolog text:

human(socrates).       % This is a fact.
mortal(X) :- human(X). % This is a rule.

Everything works fine:

?- human(X).
X = socrates;

On the other hand this Prolog text:

/**
 * block comment
 * block comment
 * block comment
 * block comment
 * block comment
 * block comment
 **/

human(socrates).       % This is a fact.
mortal(X) :- human(X). % This is a rule.

Doesn't work ok:

?- human(X).
2024/08/10 21:29:19 error(existence_error(procedure,human/1),root)

I used top level ['categories.p'] respectively ['categories2.p'] with these texts:

categories.p.log categories2.p.log