    logger
    key-dir
    long-term?]
-  (let [log-state (log2/debug log-state
-                              ::reload-nonce
-                              "Top")
+  (let [log-state (log/debug log-state
+                             ::reload-nonce
+                             "Top")
         raw-path (str key-dir "/.expertsonly/")
         path (io/resource raw-path)]
     (let [f (io/file path "lock")]

             [specs :as specs]
             [util :as util]]
            [frereth.weald
             [logging :as log2]
             [specs :as weald]])
  (:import clojure.lang.ExceptionInfo
           [com.iwebpp.crypto TweetNaclFast

              (deliver key-loaded? true)
              (assoc this
                     ::nonce-key nonce-key
                     ::weald/state (log/flush-logs! logger log-state)))))
        (do
          (log/flush-logs! logger @log-state-atom)
          (throw (ex-info "Missing noncekey file"
                          {::searching-in key-dir
                           ::log/state log-state})))))))

(declare encrypt-block)
(defn obscure-nonce
