diff --git a/DESCRIPTION b/DESCRIPTION
index e2675906c111d4e6ec26ba8600768e3aa42d1e50..d5891a0aa9821e38fb0bcccdb374dfa0a26011b1 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: stressaddition
 Type: Package
 Title: Modeling Tri-Phasic Concentration-Response Relationships
 Version: 2.2.0
-Date: 2020-02-27
+Date: 2020-02-28
 Authors@R: person("Sebastian", "Henz", role = c("aut", "cre"), 
                   email = "sebastian.henz@ufz.de", 
                   comment = c(ORCID = "0000-0001-8299-8852"))
diff --git a/R/helpers.R b/R/helpers.R
index 1b9fea35ab1ac236d2b0d9d296a7d483263247dd..a34ae96fcbe3874d3cf61b3f3019e6d5d37f4129 100644
--- a/R/helpers.R
+++ b/R/helpers.R
@@ -33,11 +33,11 @@ get_log_ticks <- function(x) {
 }
 
 
-adjust_smooth_concentrations <- function(model) {
+adjust_plot_concentrations <- function(model) {
     # Helper for the plot functions, not exported.
-    # Deals with the concentrations which are unnecessary for plotting.
-    # This means it removes the concentrations in the gap and scales the
-    # concentrations left of the gap up.
+    # Deals with the concentrations which are unnecessary for plotting. This
+    # means it removes the concentrations in the gap and increases the
+    # concentrations left of the gap.
     curves <- model$curves
     gap_idx <- min(which(!curves$use_for_plotting))
 
diff --git a/R/plot_effect.R b/R/plot_effect.R
index 5af14e08bb118822362c61318616a0eae74662dc..b9075a1f12fb7a1fe86f8cc8307ab3937637fe9a 100644
--- a/R/plot_effect.R
+++ b/R/plot_effect.R
@@ -30,7 +30,7 @@ plot_effect <- function(model,
         which <- which[which %in% valid_names]
     }
 
-    temp <- adjust_smooth_concentrations(model)
+    temp <- adjust_plot_concentrations(model)
     curves <- temp$curves
     log_ticks <- get_log_ticks(curves$concentration)
     concentration <- c(curves$concentration[1], model$args$concentration[-1])
diff --git a/R/plot_stress.R b/R/plot_stress.R
index 7fc70f8f5e4970c0620c7ea15b87ab9a4be61fd3..62979cdcc97f32c3c672ba96c1013eb67f17b159 100644
--- a/R/plot_stress.R
+++ b/R/plot_stress.R
@@ -35,7 +35,7 @@ plot_stress <- function(model,
         }
     }
 
-    temp <- adjust_smooth_concentrations(model)
+    temp <- adjust_plot_concentrations(model)
     curves <- temp$curves
     log_ticks <- get_log_ticks(curves$concentration)
     concentration <- c(curves$concentration[1], model$args$concentration[-1])