vcov.merMod():  as(V, "dpoMatrix")  needs strictly symmetric matrix;
	{failed in profile example's   pr4 <- profile(gm1)}
slightly less precise "expect_equal"  {and cosmetic}
numerically symmetrize before forceSymmetric(.)  maybe very slightly nicer.