Problem with integrate(log(1+exp(cos(phi))),phi,0,%pi)

There is a problem with one integral in the file rtestint.mac, which
seems to cause a hang of the testsuite.

Maxima is supposed to return a noun form for the following integral in
rtestint.mac. But we get an error:

(%i1) integrate(log(1+exp(cos(phi))),phi,0,%pi);
sign: argument cannot be imaginary; found %i
 -- an error. To debug this try: debugmode(true);

First, I thought this error is related to some other work I am doing.
But the problem seems to be present in the current CVS too.

Within the testsuite this integral seems to loop endlessly. It is
strange, that I have not observed this problem until I have recompiled
the whole code. If I do a errcatch around the integral I can see the
endless loop. The integrator (not rischint) is called again and again:

(%i2) errcatch(integrate(log(1+exp(cos(phi))),phi,0,%pi));
sign: argument cannot be imaginary; found %i
sign: argument cannot be imaginary; found %i
sign: argument cannot be imaginary; found %i
sign: argument cannot be imaginary; found %i
sign: argument cannot be imaginary; found %i
sign: argument cannot be imaginary; found %i
sign: argument cannot be imaginary; found %i
^CMaxima encountered a Lisp error:

 PRINT: User break

Automatically continuing.
To enable the Lisp debugger set *debugger-hook* to nil.

Is this problem present on other systems too?

At first I will comment out this example from rtestint.mac.

ein Frohes neues Jahr - Happy new year
Dieter Kaiser