.First.lib <- function(lib, pkg) {
	library.dynam("cccd",pkg,lib)
    gver <- read.dcf(file=system.file("DESCRIPTION", package=pkg), 
                      fields="Version")
    gdate <- read.dcf(file=system.file("DESCRIPTION", package=pkg), 
                      fields="Date")
    gpack <- read.dcf(file=system.file("DESCRIPTION", package=pkg), 
                      fields="Packaged")
	 gpack <- strsplit(gpack,split=";")[[1]][1]
	 cat(pkg,"version",gver,"\nDate:",gdate,"\nPackaged:",gpack,"\n") 
}