.First.lib <- function(lib, pkg) {
  library.dynam("spatstat", pkg, lib)
  v <- read.dcf(file=system.file("DESCRIPTION", package=pkg),
                fields="Version")
  cat("spatstat", v, "\n")
  cat("Type", sQuote("help(spatstat)"), "for an overview of spatstat\n")
  cat("    ", sQuote("latest.news()"), "for news on latest version\n")
  cat("    ", sQuote("licence.polygons()"),
      "for licence information on polygon calculations\n")
  reset.spatstat.options()
  invisible(NULL)
}