Errors in the testsuite

I get errors in testsuite with the current CVS version. The error is
triggered in the routine res after a call from the routine unitcir.

This is a trace for the functions unitcir and res for one example:

(%i8) integrate(1/(2+cos(x)),x,0,%pi);
  0: (UNITCIR
      ((MTIMES SIMP) 2
       ((MEXPT SIMP)
        ((MPLUS SIMP) 1 ((MTIMES SIMP RATSIMP) 4 YY)
         ((MEXPT SIMP RATSIMP) YY 2))
        -1))
      YY)
    1: (RES 2
            ((MPLUS SIMP) 1 ((MTIMES SIMP RATSIMP) 4 YY)
             ((MEXPT SIMP RATSIMP) YY 2))
            #<FUNCTION (LAMBDA #) {B20D885}> #<FUNCTION (LAMBDA #)
{B20D9ED}>)
Maxima encountered a Lisp error:

 The value $NEG is not of type LIST.


The following examples in the testsuite fails:

Running tests in rtest15: 

********************** Problem 183 ***************
Input:
                      1
factor(integrate(-----------, x, 0, 2 %pi))
                        2
                 1 + sin (x)


Result:
error-catch

This differed from the expected result:
sqrt(2) %pi

********************** Problem 184 ***************
Input:
               1
integrate(-----------, x, 0, 4 %pi)
                 2
          1 + sin (x)


Result:
error-catch

This differed from the expected result:
2 sqrt(2) %pi

********************** Problem 185 ***************
Input:
               1
integrate(-----------, x, 0, 20 %pi)
                 2
          1 + sin (x)


Result:
error-catch

This differed from the expected result:
10 sqrt(2) %pi

********************** Problem 188 ***************
Input:
                      1
factor(integrate(-----------, x, 0, 3 %pi))
                        2
                 1 + sin (x)


Result:
error-catch

This differed from the expected result:
3 sqrt(2) %pi
-------------
      2

********************** Problem 218 ***************
Input:
               1
integrate(-----------, x, 1, 4 %pi + 1)
                 2
          1 + sin (x)


Result:
error-catch

This differed from the expected result:
2 sqrt(2) %pi

245/250 tests passed

The following 5 problems failed: (183 184 185 188 218)

Running tests in rtest16: 
********************** Problem 354 ***************
Input:
               1
integrate(------------, x, 0, %pi)
          1 - r cos(x)


Result:
0

This differed from the expected result:
    %pi
------------
          2
sqrt(1 - r )

356/357 tests passed

The following 1 problem failed: (354)

My build info is:
Maxima version: 5.20post
Maxima build date: 20:21 3/30/2010
Host type: i686-pc-linux-gnu
Lisp implementation type: SBCL
Lisp implementation version: 1.0.29.11.debian

Dieter Kaiser