diff --git a/R/z_animint.R b/R/z_animint.R
index b412bd45..dfceff06 100644
--- a/R/z_animint.R
+++ b/R/z_animint.R
@@ -249,6 +249,7 @@ storeLayer <- function(meta, g, g.data.varied){
 animint2dir <- function(plot.list, out.dir = NULL,
                         json.file = "plot.json", open.browser = interactive(),
                         css.file = "") {
+  print("start of animint2dir")
   if(is.null(out.dir)){
     out.dir <- tempfile()
   }
@@ -352,6 +353,7 @@ animint2dir <- function(plot.list, out.dir = NULL,
   }
 
   ## Call ggplot_build in parsPlot for all ggplots
+  print("before parse")
   ggplot.list <- list()
   AllPlotsInfo <- list()
   for(list.name in names(plot.list)){
@@ -367,6 +369,7 @@ animint2dir <- function(plot.list, out.dir = NULL,
 
   ## After going through all of the meta-data in all of the ggplots,
   ## now we have enough info to save the TSV file database.
+  print("before export")
   geom_num <- 0
   g.list <- list()
   for(p.name in names(ggplot.list)){
@@ -406,8 +409,9 @@ animint2dir <- function(plot.list, out.dir = NULL,
       g.list[[p.name]][[gl$g$classed]] <- gl
     }#layer.i
   }
+  print("after export")
 
-  ## Selector levels and update were stored in saveLayer, so now
+  ## Selector levels and update were stored in export_animint, so now
   ## compute the unique values to store in meta$selectors.
   for(selector.name in names(meta$selector.values)){
     values.update <- meta$selector.values[[selector.name]]
diff --git a/R/z_animintHelpers.R b/R/z_animintHelpers.R
index 1d9432a8..a6674e73 100644
--- a/R/z_animintHelpers.R
+++ b/R/z_animintHelpers.R
@@ -580,8 +580,8 @@ issueSelectorWarnings <- function(geoms, selector.aes, duration){
   return(NULL)
 }
 
-#' Gives a unique name to each layer in \code{saveLayer}
-#' @param L layer in saveLayer to be named
+#' Gives a unique name to each layer in \code{export_animint}
+#' @param L layer in export_animint to be named
 #' @param geom_num the number of the layer to be saved
 #' @param p.name the name of the plot to which the layer belongs
 #' @return a unique name for the layer