[R-sig-ME] Extracting p-values from an lme object (any help would be appreciated)

[Ben Zuckerberg]

Greetings,

I know that p-value estimation in mixed models are somewhat 
controversial at the moment, but I am simply curious how one extracts 
p-values for the fixed factors from an lme object (using nlme)? The 
summary() gives the desired p-values; all I want to do is access them.  
The names() command shows the returned values (e.g., fitted, residuals) 
for many components of the model, but I can't seem to access the 
p-values.  Thank you in advance!