--- formulae.R.old	2005-06-29 11:21:25.317574920 +0200
+++ formulae.R	2005-06-29 11:21:43.934744680 +0200
@@ -75,8 +75,8 @@ process.formula <- function(formula, dat
   }
   formula <- formula(paste("~",mimf,sep=""))
   interactions <- strsplit(mimf,paste("\\",g.sep,sep=""))[[1]]
-  interactions <- gsub(" ","",interactions)
-  interactions <- gsub(g.sep,"",interactions)
+  interactions <- gsub(" ","",interactions, fixed=TRUE)
+  interactions <- gsub(g.sep,"",interactions, fixed=TRUE)
   if (v.sep == "*") v.sep <- "[*]"
   int.list <- strsplit(interactions, v.sep)
   gc1   <- lapply(int.list, function(l){ match(l,used.var) })
