diff --git a/script/netvis/tot_summary.R b/script/netvis/tot_summary.R
index 8bb48e2..70fa75e 100644
--- a/script/netvis/tot_summary.R
+++ b/script/netvis/tot_summary.R
@@ -43,7 +43,7 @@ bs_ppi <- apply(bs_ring_string, 1, string_db$get_interactions)
 if(!exists("bs_ppi")) bs_ppi <- apply(bs_ring_string, 1, string_db$get_interactions)
 
 bs_ppi <- do.call(rbind, bs_ppi)
-if(nrow(bs_ppi)==0) stop("No gene found in the database\n")
+if(nrow(bs_ppi)==0) stop("No gene is found in the database\n")
 unique_bs_ppi <- unique(bs_ppi)
 unique_bs_ppi_oriname <- unique_bs_ppi
 unique_bs_ppi_oriname[, 1] <- string_proteins[match(unique_bs_ppi[, 1], string_proteins[, "protein_external_id"]), "preferred_name"]