diff --git a/R/subcoef.R b/R/subcoef.R
index 083b810a875354ce8f8e085ffc1183bb16bd96de..9afdd7a9d842ebe03895d516e5b931f7d1f0c2ee 100644
--- a/R/subcoef.R
+++ b/R/subcoef.R
@@ -29,9 +29,9 @@ subcoef <- function(condition, mname){
     methods::slot(mname,ele) <- elements
   }
 
-  methods::slot(mname,"coef.names")<-gsub(pattern = condition,replacement = "",x =methods::slot(mname,"coef.names") )
+  methods::slot(mname,"coef.names")<-gsub(pattern = condition,replacement = "",x =methods::slot(mname,"coef.names") ,perl = TRUE )
 
-  methods::slot(mname,"model.name")<-gsub("_","",condition)
+  methods::slot(mname,"model.name")<-gsub("_","",condition, perl = TRUE)
 
 
   return(mname)