diff --git a/R/rc.expand.sample.names.R b/R/rc.expand.sample.names.R
index 03b393e..fcc330f 100644
--- a/R/rc.expand.sample.names.R
+++ b/R/rc.expand.sample.names.R
@@ -45,7 +45,7 @@ rc.expand.sample.names <- function(
     sn <- as.character(ramclustObj$phenoData$sample.names)
   }
   
-  cat(paste(sn, collapse = ", "), '\n')
+  # cat(paste(sn, collapse = ", "), '\n')
   
   if(!any(ls()=="sn")) {
     stop('missing sample names in phenoData slot', '\n')