diff --git a/R/Seurat.Utils.Metadata.R b/R/Seurat.Utils.Metadata.R
index 2ca9f56..2f389dc 100644
--- a/R/Seurat.Utils.Metadata.R
+++ b/R/Seurat.Utils.Metadata.R
@@ -1083,7 +1083,7 @@ plotMetadataCorHeatmap <- function(
       cutree_rows = n_cutree, cutree_cols = n_cutree
     )
     wplot_save_pheatmap(
-      x = pl, width = w, ,
+      x = pl, width = w,
       plotname = FixPlotName(make.names(main), suffix, "pdf")
     )
   }
@@ -1160,7 +1160,7 @@ heatmap_calc_clust_median <- function(
       ...
     )
     wplot_save_pheatmap(
-      x = pl, width = w, ,
+      x = pl, width = w,
       plotname = FixPlotName(make.names(plot_name), suffix, "pdf")
     )
   }
diff --git a/R/Seurat.Utils.Visualization.R b/R/Seurat.Utils.Visualization.R
index e5d63fc..b6cc683 100644
--- a/R/Seurat.Utils.Visualization.R
+++ b/R/Seurat.Utils.Visualization.R
@@ -2636,7 +2636,7 @@ PlotTopGenesPerCluster <- function(
   message(" > Running PlotTopGenesPerCluster...")
 
   topX.markers <- GetTopMarkers(
-    df = df_markers, n = nrGenes,
+    dfDE = df_markers, n = nrGenes,
     order.by = order.by
   )
 
@@ -4217,5 +4217,3 @@ suPlotVariableFeatures <- function(obj = combined.obj, NrVarGenes = 15,
 
 
 
-
-