OpenMx Structural Equation Modeling

So a question was on SEMNET the other day, as to whether there were any free SEM packages that do power calculations. In essence, OpenMx does, given a bit of help from the R package pwr. Basically, one would fit the true model to the data, fix one or more parameters to predetermined values (usually to zero) and refit the model. Suppose that the difference in the -2lnL fit functions (as might be obtained from two mxRun commands

sat<-mxRun(saturated)
and
sub <-mxRun(submodel)

then the difference in the fit of these two models would be:

When I run the following model, the program is telling me that I have 7405 degrees of freedom when there should only be around 370. I'm just wondering if anyone can offer any insight into what could be causing this discrepancy? Here's the code I'm running:

MissDataSim2 <- read.table("F:/Kyle/Research/OpenMx/Data/Kyle.MissDataSim2.txt", header = TRUE)

library(OpenMx)

MissDataModel3<-mxModel("Missing Data Simulation Structural Model with Phantom Constructs",
type="RAM",
mxData(MissDataSim2,
type="raw"
),

Hi All,