diff --git a/R/subcoef.R b/R/subcoef.R
index d8a996c28800a1260ff662788a74a54b4fb57a18..9afdd7a9d842ebe03895d516e5b931f7d1f0c2ee 100644
--- a/R/subcoef.R
+++ b/R/subcoef.R
@@ -22,7 +22,7 @@
 #' }
 subcoef <- function(condition, mname){
 
-  sub <- grep(condition,methods::slot(mname,"coef.names"),perl = TRUE)
+  sub <- grep(condition,methods::slot(mname,"coef.names"))
 
   for (ele in c("coef.names","coef","se","pvalues"))  {
     elements<- methods::slot(mname,ele)[sub]