Distinguish not run from modified since run?

Hi,
Doing summary on a model that has not been run gives the warning
"WARNING: This model was modified since it was run. Summary information may be out-of-date."

Be nice if we could distinguish never run from modified since run... and, in this case say

"WARNING: This model has not been run. tip: Use
model = mxRun(model)
to estimate a model."


library(OpenMx)
# generate data
covData <- matrix(c(1.0, 0.5, 0.5, 1.0), nrow = 2, dimnames = list(c("a", "b"), c("a", "b")))

# Specify the model
m1 <- mxModel("CI_Example",
# create an expected covariance matrix, fixing one value (var2 = 1)
mxMatrix("Symm", 2, 2, free = c(T, T, F), values = c(1, .5, 1), labels = c("var1", "cov12", "var2"), name = "expectedCov"),
mxExpectationNormal("expectedCov", dimnames = c("a", "b")),
mxFitFunctionML(),
mxData(covData, "cov", numObs = 100)
)
m1 <- mxModel(m1, mxCI(c("var1", "cov12", "var2")) )
summary(m1)