diff --git a/R/S3.R b/R/S3.R
index 5580f5ce..79c394c7 100644
--- a/R/S3.R
+++ b/R/S3.R
@@ -315,7 +315,7 @@ pander.summary.lm <- function(x, caption = attr(x, 'caption'), covariate.labels,
 
     res <- as.data.frame(x$coeff)
 
-    if (nrow(res) > 1) {
+    if (rownames(res)[1] == '(Intercept)' & nrow(res) > 1) {
         res <- res[c(2:nrow(res), 1), ]
     }