loadFromForecastingJesus <- function(fakeToday, overwrite.ifexists=FALSE, envir=globalenv()) {

  ## Note to self: Do not automate fakeToday to minimize the risk of overwriting data
  if (missing("fakeToday"))
    stop ("fakeToday is missing. Please set it explicitly.")
  if (is.null(fakeToday)) {
    warning ("fakeToday is NULL   Nothing to load")
    return(FALSE)
  }

  files <- dir(data.p("forecasting"))
  DT.files_parsed <- parseBackUpFile(files)

  DT.files_parsed[, fakeToday := as.Date(simulated_date)]

  if (!fakeToday %in% DT.files_parsed[, as.Date(simulated_date)]) {
    warning ("No backup files available for fakeToday = '", fakeToday, "'\nAvailable dates are: ", pasteQ(sort(unique(DT.files_parsed$simulated_date))))
    return(FALSE)
  }

  DT.toload <- DT.files_parsed[fakeToday %in% as.Date(simulated_date), list(file=file[time == max(time)]), by=obj]


  ## parseBackUpFile returns NA for subdirs.  TODO: Clean this up
  DT.toload <- DT.toload[!is.na(file)]

  objs.exist <- DT.toload[exists(obj, envir=envir), obj]

  if (length(objs.exist) && !overwrite.ifexists)
    stop("The following objects already exist in the environment. Use   (...  , overwrite.ifexists = TRUE )  to overwrite", pasteQ(objs.exist))

  loadFromJesus(file=DT.toload[, data.p("forecasting", file)]
              , overwrite.ifexists=overwrite.ifexists
              , pos=2)

}