slatec quad_qagi error message



Despite using the new control features to surpress
slatec error messages, here is a quad_qagi example
which appears to generate a error message.

(I am using    load ("j4save.lisp")$
  and  quad_j4save('control, 0)$ in nint.mac until
the next Windows binary version of Maxima comes
out.)
-------------
(%i1) load(nint);
(%o1) "c:/work2/nint.mac"

(%i8) quad_qagi((sin(x+sqrt(x))+x*bessel_j(0,x^2))/(1+x),x,0,inf,limit=700);

 *  NO PRECISION BECAUSE X IS BIG

(%o8) quad_qagi((sin(x+sqrt(x))+bessel_j(0,x^2)*x)/(x+1),x,0,inf,
                epsrel = 1.0E-8,epsabs = 0.0,limit = 700)
-----------------------------

The advertised answer to this numerical integral is
(Mathematica)  0.78195

Any good ideas for using slatec (or other) to get the finite answer?

Ted