diff --git a/R/Seurat.Utils.R b/R/Seurat.Utils.R
index cca134b..58b6a05 100644
--- a/R/Seurat.Utils.R
+++ b/R/Seurat.Utils.R
@@ -1192,7 +1192,7 @@ GetClusteringRuns <- function(obj = combined.obj,
 
     # Filter clustering.results based on the numeric vector res
     clustering.results <- clustering.results[clustering.res.found.numeric %in% res]
-    if(length(filtered.results) == 0) warning("No clustering matches `res`!", immediate. = TRUE)
+    if(length(clustering.results) == 0) warning("No clustering matches `res`!", immediate. = TRUE)
 
   }
 
diff --git a/R/Seurat.Utils.Visualization.R b/R/Seurat.Utils.Visualization.R
index b3fa3c1..19ff6d4 100644
--- a/R/Seurat.Utils.Visualization.R
+++ b/R/Seurat.Utils.Visualization.R
@@ -1068,7 +1068,7 @@ scBarplot.CellFractions <- function(
 
     if (save_plot) {
       # sfx <- shorten_clustering_names(group.by)
-      if (!is.null(suffix)) sfx <- suffix
+      sfx <- if (!is.null(suffix)) suffix else NULL
       if (min_frequency) sfx <- sppp(sfx, min_frequency)
       qqSave(
         ggobj = pl, title = FixPlotName(plotname), also.pdf = also.pdf, w = w, h = h,