diff --git a/R/view.R b/R/view.R
index 2b0304c8..55ef24cc 100644
--- a/R/view.R
+++ b/R/view.R
@@ -128,7 +128,7 @@ view <- function(x,
                        escape.pipe   = escape.pipe,
                        ...)
     
-  } else if (inherits(x = x, what = c("stby", "by")) &&
+  } else if (inherits(x = x, what = c("stby", "by", "array")) &&
              attr(x[[1]], "st_type") %in% 
                c("freq", "ctable", "descr", "dfSummary")) {