} elseif {$language eq "tcl"} then {
      return pkgIndex.tcl
    } else {
      return ""
    }
  }

  #
  # NOTE: This procedure returns non-zero if the specified file appears
  #       to contain a master package index for native Tcl.  The fileName
  #       argument is the name of the file to check.
  #
  proc isMasterTclPackageIndex { fileName } {
    #
    # NOTE: Read all data from the specified file.  This should always be
    #       a relatively small file with a constant size.
    #
    set data [readFile $fileName]

    #
    # NOTE: Check the data read from the file for the magic string that
    #       we use to indicate a "master package index" file.
    #
    if {[string first <MASTER_PACKAGE_INDEX> $data] == -1} then {
      return false
    }

    #
    # TODO: Make this procedure smarter?
    #
    return true
  }

  #
  # NOTE: This procedure, which is only used for native Tcl, generates a
  #       package index file (i.e. "pkgIndex.tcl") suitable for use with
  #       native Tcl 8.4 (or higher).  It will recursively [source] other
  #       native Tcl package index files that are within the configured

  #       persistent root directory, thereby causing all packages located
  #       within it to become available.  Since Eagle (by default) already
  #       performs a recursive search for its package index files, this
  #       procedure is not necessary for Eagle packages.  This procedure
  #       will return non-zero if productive work was done.
  #
  proc maybeModifyMasterTclPackageIndex {} {
    variable persistentRootDirectory

    verifyPersistentRootDirectory
    set persistentDirectory $persistentRootDirectory

    set fileName [file join $persistentDirectory pkgIndex.tcl]

    if {[file exists $fileName] && ![isMasterPackageIndex $fileName]} then {
      return false
    }

    writeFile $fileName [string trim [string map [list \r\n \n] {
###############################################################################
#
# pkgIndex.tcl --
#
# Extensible Adaptable Generalized Logic Engine (Eagle)

  }

  eval lappend pkgd(dirs) \
      [glob -nocomplain -types {d} [file join $pkgd(dir) *]]
}

set dir $pkgd(savedDir); unset -nocomplain pkgd
## <MASTER_PACKAGE_INDEX> ##
    }]]

    return true
  }

  #
  # NOTE: This procedure returns non-zero if the specified file seems to be
  #       an OpenPGP signature file.  The fileName argument is the name of
  #       the file to check, which may or may not exist.  The nameOnly
  #       argument should be non-zero to ignore the contents of the file.

      if {[isEagle]} then {
        file delete -recursive -- $temporaryDirectory
      } else {
        file delete -force -- $temporaryDirectory
      }

      #
      # NOTE: When dealing with packages for native Tcl, modify the master
      #       package index.
      #
      if {$language eq "tcl"} then {

        set addPersistentDirectoryToAutoPath [maybeModifyMasterTclPackageIndex]
      }
    }

    #
    # NOTE: Sort the list of directories that downloaded files were written
    #       to, removing any duplicates in the process.
    #