diff --git a/script/network/bstest2.r b/script/network/bstest2.r
index 604fe8f..a931427 100644
--- a/script/network/bstest2.r
+++ b/script/network/bstest2.r
@@ -182,7 +182,7 @@ cat(paste0("Please reset the ncores parameter to less than ", floor(memory/maxme
 
 a <- chron(time=walltime, format=c(times="h:m:s"))
 gene_trunk <- floor(0.5*(3600*hours(a)+60*minutes(a)+seconds(a))/maxlap)
-cat(paste0("We will include ", gene_trunk, " genes in one script\n"))
+cat(paste0("We will include ", min(gene_trunk, ncol(y)), " genes in one script\n"))
 
 write.table(gene_trunk, file="gene_trunk_stage2", row.names=F, col.names=F, quote=F, sep=" ")