bug in coef.marssMLE() function

[chenhappy]

Error message
Error in dimnames(x) <- dn :
length of 'dimnames' [1] not equal to array extent

Code to reproduce
dat <- t(harborSealWA)
dat <- dat[2:nrow(dat), ] # remove the year row
kem <- MARSS(dat, model=list(G=matrix(1,5,1),Q=matrix(list('q'),1,1),tinitx=1),method='BFGS')
coef(kem,type='matrix') #<-error occurs here

MARSS Version
3.11.8

Additional context
when G is specified as mxq , and Q as qxq, and when q!=m, line 106-107 will raise error as the dimension of Q is not the same as attr(modified.object[["model"]], "X.names").
sames goes with R (when H is specified so that R's row dimension is different from y).
this bug in coef() causes trouble for predict_marssMLE as it calls coef() and failed.