diff --git a/R/mc_S3_methods.R b/R/mc_S3_methods.R
index 04a6d6b56a2f0b9dd810ba2e09244c17c321ba0e..5cfe8a019db3429ff0edfdf3f1284b8a529b71b6 100644
--- a/R/mc_S3_methods.R
+++ b/R/mc_S3_methods.R
@@ -214,7 +214,7 @@ confint.mcglm <- function(object, parm, level = 0.95, ...) {
     ci <- temp$Estimates + temp$Std.error %o% fac
     colnames(ci) <- paste0(format(a, 2), "%")
     rownames(ci) <- temp$Parameters
-    return(ci[parm])
+    return(ci[parm,])
 }
 #' @title Extract Model Fitted Values of McGLM
 #' @name fitted.mcglm