Integration error - once more



Following the recent posts I've noticed some reported problems with 
integration in Maxima. Here is another problem posted at EuMathT user 
groop (EuMathT supports Maxima)
Here is the code from EuMathT which uses Maxima 5.13. I also tried it in 
wxMaxima 5.12 with the same result.

 >: f(x):=log(2-cos(x)+sqrt(3+cos(x)*(cos(x)-4)))

            f(x) := log(2 - cos(x) + sqrt(3 + cos(x) (cos(x) - 4)))

 >: 
r(n,p):=(1/%pi)*integrate((1-exp(-abs(n)*f(x))*cos(p*x))/sinh(f(x)),x,0,%pi) 


                  1            1 - exp((- abs(n)) f(x)) cos(p x)
      r(n, p) := --- integrate(---------------------------------, x, 0, %pi)
                 %pi                      sinh(f(x))

 >: r(1,3)


Maxima encountered a Lisp error:

 Error in PROGN [or a callee]: Bind stack overflow.

Automatically continuing.
To reenable the Lisp debugger set *debugger-hook* to nil.
 
It is reported that the result should be 46/(3*%pi) - 4 (from the 
literature and solved with other CAS). I hope that you would not mind 
that I put this problem here (instead of the autor)

Best Regards,
Radovan