     (call (assoc arg-map
             :url (str (config/bond-url) service-prefix path)
             :headers (merge (@get-bearer-token-header)
+                            app-id
                             (:headers arg-map))
             :on-done (fn [{:keys [status-code status-text] :as m}]
                        (update-health status-code status-text)

  (let [on-done (:on-done arg-map)]
    (call (assoc arg-map
            :url (config/martha-url)
            :method "POST"
            :data data
            :on-done (fn [{:keys [status-code status-text] :as m}]

      (call (assoc arg-map
              :url (str url-root service-prefix path)
              :headers (merge (@get-bearer-token-header)
                              app-id
                              (:headers arg-map))
              :on-done (fn [{:keys [status-code status-text] :as m}]
                         (update-health status-code status-text)
