}

    if {![info exists result] || ![regexp -line -- \
        $fossilInfoCheckoutPattern $result dummy match]} then {
      return ""
    }

    return [string range [string trim $match] 0 9]
  }

  #
  # NOTE: This procedure attempts to query the root directory of the Fossil
  #       checkout.  There are no arguments.  An empty string is returned if
  #       the information cannot be determined.
  #