diff --git a/R/expr_models.R b/R/expr_models.R
index 53788ad..93aa585 100644
--- a/R/expr_models.R
+++ b/R/expr_models.R
@@ -432,6 +432,9 @@ extract_coefficient_helper = function(model, model_summary,
     # We need this because some summary methods "format" the coefficients into
     # a factor...
     coef_mat <- apply(coef_mat, 2, function(x) {as.numeric(as.character(x)) })
+    if (!is.matrix(coef_mat)) {
+      coef_mat = t(as.matrix(coef_mat))
+    }
     row.names(coef_mat) = row.names(model_summary$coefficients)
     colnames(coef_mat) = c('estimate',
                            'std_err',