Passing Command to Optim in factanal

Hi,

I am currently trying to execute the following command:

f<-factanal(factors=k$Components$nparallel,covmat=m,n.obs=2287,rotation="varimax",control=list(opt=list(method=c("BFGS"))))

but keep getting the error: L-BFGS-B needs finite values of 'fn'

I can't figure out what I am doing wrong here, why isn't optim being told to use BFGS instead of L-BFGS-B...

Any help would be very muc appreciated.

Thanks,
Ali