[R] sem-Package BIC calculation wrong!?

[Ludwig Kreuzpointner]

To whom it may concern,
when I was calculating BIC with sem
e.g. as follows:

cfa.mod <- cfa(reference.indicators=FALSE, covs=NULL)    
F1: Sentences, Vocabulary, Sent.Completion, First.Letters, Four.Letter.Words 

cfa.sem <- sem(cfa.mod, S=Thurstone, N=355) 
summary(cfa.sem)


the BIC value is wrong!

For the example it results 

BIC =  104.5072

Correct with a formula I found in text books:

BIC= χ2 + ln(N)[k(k + 1)/2 - df]

BIC should be 192.588977895

104.5072 I got, when set k=0

I think there must be a mistake when getting the numbers of parameters.

Kind regard
Ludwig Kreuzpointner