     (async/>!! cmd-event-ch (queue/make-cmd-event cmdref kind))))
 
 (defn check-schema-version
-  [desired-schema-version context db service shutdown-on-error]
+  [desired-schema-version context db service request-shutdown]
   {:pre [(integer? desired-schema-version)]}
   (when-not (= #{:stopping} @(:stop-status context))
     (let [schema-version (-> (jdbc/with-transacted-connection db


          ;; Unrecognized -- pass it on.
          (throw ex))))))

(defprotocol PuppetDBServer
  (shared-globals [this])

  PuppetDBServer
  [[:DefaultedConfig get-config]
   [:WebroutingService add-ring-handler get-registered-endpoints]
   [:ShutdownService request-shutdown shutdown-on-error]]
  (init [this context]

        (doseq [{:keys [reporter]} (vals metrics/metrics-registries)]
