[R] Question about simple.median.test

[Uwe Dippel]

I am studying "Using R for Introductory Statistics" and find it in 
general very useful. At present, I am stumbling over the function 
simple.median.test.

 > x
 [1] 12.8  3.5  2.9  9.4  8.7  0.7  0.2  2.8  1.9  2.8  3.1 15.8
 > simple.median.test (x,median=5)
[1] 0.3876953
 > simple.median.test (x,median=10)
[1] 0.03857422
until here it is identical to the document. Then I played for myself:
 > simple.median.test (x,median=3)
[1] 1.225586
The result is >1 here. Is my interpretation wrong, that the result is a 
probability?

Uwe