set repositories C:/repositories
      set checkouts C:/checkouts
    } else {
      set repositories ~/repositories
      set checkouts ~/checkouts
    }

    set message [string trim [subst {
      The package client checkout directory has an issue: %error%



      Prior to running the package uploader client tool, Fossil must be
      installed -AND- the Package File Server repository must be cloned
      and opened, using commands very similar to the following:

        mkdir [joinPath ${repositories}]
        cd [joinPath ${repositories}]
        fossil clone https://your_login@pkg.management/pkgd pkgd.fossil
        mkdir [joinPath ${checkouts}]
        cd [joinPath ${checkouts}]
        fossil open [joinPath ${repositories} pkgd.fossil]

      After the above steps have been completed, package uploader client
      tool can be executed using a command very similar to the following:

        tclsh [joinPath ${checkouts} client 1.0 neutral pkgr_upload.eagle]
    }]]

    if {![info exists checkoutDirectory]} then {
      error [string map [list \
          %error% "checkout directory is missing"] \
          $message]
    }

  #       is installed locally.  There are no arguments.  Script errors are
  #       raised if any problems are found.  The return value is undefined.
  #
  proc fossilMustBeInstalled {} {
    variable fossilVersionCommand
    variable fossilVersionPattern

    set message [string trim {
      Cannot use Fossil: it does not appear to be installed.

      Fossil may be downloaded from "https://www.fossil-scm.org/"
      and then installed by copying the (single) Fossil binary to
      a directory that lies somewhere along the executable search
      path.

      Alternatively, it may be possible to install Fossil via the
      package management subsystem included with your operating
      system.
    }]


    if {[isEagle]} then {
      if {[catch {
        eval exec -nocarriagereturns -stdout output -stderr error \
            $fossilVersionCommand
      } result] == 0} then {
        set result [appendArgs $output $error]