diff --git a/R/segmentationCBS.R b/R/segmentationCBS.R
index 9a8f9d5..40f8e42 100644
--- a/R/segmentationCBS.R
+++ b/R/segmentationCBS.R
@@ -436,7 +436,7 @@ plot.cnv = TRUE, max.segments = NULL, min.logr.sdev = 0.15, chr.hash = chr.hash)
 }
 
 .getAverageWeightPV <- function(seg, weights, perm = 2000) {
-    perm <- min(length(weights), 2000)
+    perm <- min(length(weights), perm)
     num_marks <- sort(unique(seg$num.mark))
     .do_permutation <- function(i, l) {
         if (l > 25) return(0)