diff --git a/R/spillover.R b/R/spillover.R
index ec5743d..7c70005 100644
--- a/R/spillover.R
+++ b/R/spillover.R
@@ -450,8 +450,9 @@ setMethod("spillover_ng",
             cols <- cols[!(cols %in% c(fsc, ssc))]
             unstained <- match("unstained", sampleNames(matched))
             
-            channel_order <- sapply(cols, grep, x = sampleNames(matched), fixed = TRUE)
-            
+            #channel_order <- sapply(cols, grep, x = sampleNames(matched), fixed = TRUE)
+            sapply(cols, function(x)which(x==sampleNames(matched)))
+
             if (pregate) {
               if (plot) {
                 oask <- devAskNewPage(TRUE)