Using mxPenaltySearch() on a multigroup model throws a confusing error.

Overly complex reprex follows:
library(OpenMx) jointModel <- mxModel("parent", mxModel("child", type="RAM", manifestVars="X", mxData(data.frame(X=c(1,2,1,2)), "raw"), mxPath("X", arrows=2, values=1, label="B", free=TRUE) ), mxFitFunctionMultigroup("child"), mxMatrix("Full",1,1,values=1, free=T, name="l", labels=c("lambda")), mxPenaltyLASSO("B", "lasso", hyperparams="lambda")) mxPenaltySearch(jointModel)

The problem is the error on lines 2196 and 2197 of Compute.cpp, where mxThrow needs two arguments but only has one. That should be fixed so that it doesn't throw an error, and just only uses the top-level fit function.