--- MxSummary.R	2009-08-20 12:11:11.000000000 +0200
+++ MxSummary2.R	2009-08-20 12:11:04.000000000 +0200
@@ -46,6 +46,8 @@
 	} else if (is.null(likelihood)) {
 		return(retval)
 	}
+	retval[['Chi']] <- chi
+	retval[['p']] <- pchisq(chi, DoF, lower.tail=FALSE)
 	retval[['AIC']] <- likelihood - 2 * DoF
 	retval[['BIC']] <- 0.5 * (likelihood - DoF * log(data@numObs))
 	rmseaSquared <- (chi / DoF - 1) / data@numObs
@@ -113,6 +115,8 @@
 		cat("Observed statistics: ", retval$observedStatistics, '\n')
 		cat("Estimated parameters: ", retval$estimatedParameters, '\n')
 		cat("Degrees of freedom: ", retval$degreesOfFreedom, '\n')
+		cat("Chi-Square: ", retval$Chi, '\n')
+		cat("p: ", retval$p, '\n')
 		cat("AIC: ", retval$AIC, '\n')
 		cat("BIC: ", retval$BIC, '\n')
 		cat("adjusted BIC:", '\n')