diff --git a/R/ui.R b/R/ui.R
index a329250..7623ba0 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -42,7 +42,7 @@ ui <- function(custom_dataset = NULL, show_api_docs = FALSE) {
               verticalLayout(
                 strong("Expression across samples"),
                 paste0(
-                  "Proportion of samples in which the gene is expressed above ",
+                  "Proportion samples in which the gene is expressed above ",
                   "the selected threshold. Select a method and a weight for ",
                   "the final score."
                 )
diff --git a/scripts/comparison.R b/scripts/comparison.R
index 298a6f1..c1dc111 100644
--- a/scripts/comparison.R
+++ b/scripts/comparison.R
@@ -59,7 +59,7 @@ datasets_data <- rbindlist(lapply(names(datasets), function(name) {
 datasets_data <- rbind(
   datasets_data,
   data.table(
-    dataset = "Venn 88",
+    dataset = "Venn",
     gene = genes_venn
   )
 )