diff --git a/R/lotri.R b/R/lotri.R
index d0276b4..852fc80 100644
--- a/R/lotri.R
+++ b/R/lotri.R
@@ -1058,8 +1058,8 @@ NULL
   dimnames(.ret) <- list(env$names, env$names)
   dimnames(.retF) <- list(env$names, env$names)
   dimnames(.retU) <- list(env$names, env$names)
-  if (is.logical(env$rcm) && env$rcm && .n >= 1) {
-    .tmp <- lotriMatInv(.ret)
+  if (is.logical(env$rcm) && env$rcm && .n >= 1 &&
+        !lotriIsBlockMat(.ret)) {
     .ret <- rcm(.ret)
     env$names <- dimnames(.ret)[[1]]
     .retF <- .retF[env$names, env$names]