diff --git a/R/build_map_by_steps.R b/R/build_map_by_steps.R
index bce88b48..5c27b8a4 100644
--- a/R/build_map_by_steps.R
+++ b/R/build_map_by_steps.R
@@ -435,7 +435,7 @@ rem_mrk_clusters <- function(input.map,
   id <- cbind(c(1, id+1), c(id, input.map$info$n.mrk))
   ## Selecting map segments larger then the specified threshold
   segments <- id[apply(id, 1, diff) > size.rem.cluster - 1, , drop = FALSE]
-  if(dim(segments)[1] > 0) stop("All markers were discarted using the defined gap.threshold.")
+  if(dim(segments)[1] == 0) stop("All markers were discarted using the defined gap.threshold.")
   id<-NULL
   for(i in 1:nrow(segments)){
     id <- c(id, segments[i,1]:segments[i,2])