diff --git a/R/ProjectMethods.R b/R/ProjectMethods.R
index 0ac8258c..5e42a5fb 100644
--- a/R/ProjectMethods.R
+++ b/R/ProjectMethods.R
@@ -388,6 +388,11 @@ addPeakSet <- function(
       x
     }) %>% Reduce("c", .) %>% sortSeqlevels %>% sort
 
+    #Name each peak
+    if(is.null(peakSet$name)) {
+      peakSet$name <- paste0(seqnames(ps),"_peak",ps$idx)
+    }
+    
     #Get NucleoTide Content
     peakSet <- tryCatch({
       .requirePackage("Biostrings",source="bioc")