Some bug fixes but still a problem with the m_inverse <- x$getinverse assignment