*** getDependencies.R.orig	2010-04-23 14:43:53.361078503 -0400
--- getDependencies.R.new	2010-04-23 15:36:33.437078264 -0400
***************
*** 1,6 ****
- 
  getDependencies <-
!     function(pkgs, dependencies = NA, available = NULL, lib = .libPaths()[1L])
  {
      oneLib <- length(lib) == 1L
      if(is.logical(dependencies) && is.na(dependencies))
--- 1,5 ----
  getDependencies <-
!     function(pkgs, dependencies = NA, available = NULL, installed = NULL , lib = .libPaths()[1L])
  {
      oneLib <- length(lib) == 1L
      if(is.logical(dependencies) && is.na(dependencies))
***************
*** 41,46 ****
--- 40,46 ----
          ## Here we are slightly more conservative
          libpath <- .libPaths()
          if(!lib %in% libpath) libpath <- c(lib, libpath)
+ 	if ( missing(installed)  || is.na(installed) ) 
          installed <- installed.packages(lib.loc = libpath,
                                          fields = c("Package", "Version"))
          not_avail <- character()
