diff --git a/R/sourceTAF.R b/R/sourceTAF.R
index 32485c2..0506a43 100644
--- a/R/sourceTAF.R
+++ b/R/sourceTAF.R
@@ -4,7 +4,7 @@
 #'
 #' @param script script filename.
 #' @param rm whether to remove all objects from the global environment before
-#'        the script is run.
+#'        and after the script is run.
 #' @param clean whether to remove the corresponding TAF directory before running
 #'        the script.
 #' @param quiet whether to suppress messages reporting progress.
@@ -59,9 +59,12 @@ sourceTAF <- function(script, rm=FALSE, clean=TRUE, quiet=FALSE)
   owd <- setwd(dirname(script))
   on.exit(setwd(owd))
   result <- try(source(basename(script)))
-
   ok <- class(result) != "try-error"
   if(!quiet)
     msg("  ", script, if(ok) " done" else " failed")
+
+  if(rm)
+    rm(list=ls(.GlobalEnv), pos=.GlobalEnv)
+
   invisible(ok)
 }
diff --git a/man/sourceTAF.Rd b/man/sourceTAF.Rd
index c37ef0a..2bc909f 100644
--- a/man/sourceTAF.Rd
+++ b/man/sourceTAF.Rd
@@ -10,7 +10,7 @@ sourceTAF(script, rm = FALSE, clean = TRUE, quiet = FALSE)
 \item{script}{script filename.}
 
 \item{rm}{whether to remove all objects from the global environment before
-the script is run.}
+and after the script is run.}
 
 \item{clean}{whether to remove the corresponding TAF directory before running
 the script.}