Infinite loop in an error message from "Evaluate"

[magv]

If you'll run this program with a recent FORM master:

Evaluate 1;

... you will get this output:

FORM 5.0.0-beta.1 (Jun 17 2025, v5.0.0-beta.1-180-g6abc477-dirty)  Run: Tue Jun 17 20:06:13 2025
    Evaluate 1;
bug.frm Line 1 -->  should be a built in function that can be evaluated numeric
ally.
bug.frm Line 1 --> <FD><E1>q should be a built in function that can be evaluated nume
rically.
bug.frm Line 1 --> <E1>q should be a built in function that can be evaluated numer
ically.
bug.frm Line 1 --> q should be a built in function that can be evaluated numeri
cally.
bug.frm Line 1 -->  should be a built in function that can be evaluated numeric
ally.
bug.frm Line 1 -->  should be a built in function that can be evaluated numeric
ally.
bug.frm Line 1 --> pX^L<FF>6a should be a built in function that can be evaluated n
umerically.
[...]

Looks like an error report goes in a loop.

Found with the fuzzer (#663).

[jodavies]

Another loop:

Symbol a,b;
Local test = a*..6;
.end

[jodavies]

Another:

Symbol x,n;
Format DoubleFortran;
#OpenDictionary numbers
  #add 2: "TWO"
  #add 5: "FIVE"
  #add 7: "SEVEN"
  #add 1/2: "HALF"
#CloseDictionary
Local F = (1+x)^7/7;
id  x^n? = x*x^n/(n+1);
#UseDictionary numbers ( arnings)
Print;
.end

It is very good at finding looping error messages, apparently!