t.test doest no return the same p value

I run this code:

t.test(x = rate$Open.rate, mu = 0.4, alternative = "greater")

I get:

data:  rate$Open.rate
t = -0.5295, df = 9, p-value = 0.6954
alternative hypothesis: true mean is greater than 0.4
95 percent confidence interval:
0.297375      Inf
sample estimates:
mean of x
    0.377

I get the same t value as in this lesson but a different p-value?  How come I get a different result with the t.test function?