diff --git a/R/MultiAssayExperiment-class.R b/R/MultiAssayExperiment-class.R
index d5ec248..78ffaa0 100644
--- a/R/MultiAssayExperiment-class.R
+++ b/R/MultiAssayExperiment-class.R
@@ -380,9 +380,9 @@ MultiAssayExperiment <-
     colNams <- Filter(function(x) !isEmpty(x), colnames(object))
     msg <- NULL
     if (length(colNams)) {
-        logicResult <- mapply(function(x, y, nm) {
+        logicResult <- mapply(function(x, y) {
             identical(sort(x), sort(y))
-        }, x = colNams, y = assayCols, nm = names(colNams))
+        }, x = colNams, y = assayCols[names(colNams)])
         if (!all(logicResult))
             msg <- "not all ExperimentList samples are found in the sampleMap"
     }