[R] multiple error bars when NA present

[Junqian Gordon Xu]

package: psych
function: error.bars()
R version: 2.9.1
OS: both linux and windows

a<-c(1,2,3,4,5)
b<-c(1,2,3,4,4)
c<-c(1,2,3,NA,5)
data<-data.frame(a,b,c)

error.bars(data[,1:2],ylim=c(0,6))   looks fine

however

error.bars(data,ylim=c(0.6))

shows multiple error bars for each vector and the number of extra error 
bars equals to the number of vectors with NA value present.

Is this a bug?

Thanks
Gordon