Question: Help with an error in procNewton

Hello,

Can anyone help me with this error in Maple while using prcNewton to find local extrema: 

> prcNewton := proc () 

local ftn, strpt, epsilon, maxlps, i, xn, dftn; 

if 4 < nargs then 

elif nargs < 2 then end if; 

if nargs = 2 then 

epsilon := 1/10000000; 

maxlps := 1000 

elif nargs = 3 then 

epsilon := args[3]; 

maxlps := 1000 

else 

epsilon := args[3];

 maxlps := args[4]

 end if; 

dftn := D(ftn); 

xn := strpt; 

i := 0; 

while epsilon < abs(evalf(ftn(xn))) do if abs(evalf(dftn(xn))) < epsilon then 

break 

end if; 

xn := evalf(xn-ftn(xn)/dftn(xn)); 

i := i+1; 

if maxlps < i then  

end if end do; 

return xn 

end proc;

> prcNewton(proc (x) options operator, arrow; 2*cos(x^2)*x+1 end proc, 1.0);
Error, (in prcNewton) cannot determine if this expression is true or false: 1/10000000 < abs(ftn(strpt))

Thank you.