extracting p-values in scientific notation

Dear all
How does print.htest display the p-value in scientific notation?

(x<- cor.test(iris[[1]], iris[[3]]))

	Pearson's product-moment correlation

data:  iris[[1]] and iris[[3]]
t = 21.65, df = 148, p-value<  2.2e-16
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
  0.8270 0.9055
sample estimates:
    cor
0.8718

Above the p-value comes as '<  2.2e-16', while inspecting the object I
get a good old '0'.

x$p.value

[1] 0

I tried to inspect print.htest but couldn't find it. I also played
with format, round and the like to no avail. Any pointers?

Regards
Liviu