        ([log-state#
          label#
          message#]
-        (add-log-entry log-state# ~tag label# message#)))))
+        (add-log-entry log-state# ~tag label# message#))
+       ([log-state#
+         label#]
+        (add-log-entry log-state# ~tag label#)))))
 
 (defn exception-details
   [ex]

                     :details ::details)
        :ret ::entries)
(defn add-log-entry
    ([{:keys [::lamport]
     :as log-state}
    level
    label

(deflogger error)

(defn exception
  ([log-state ex label]
   (add-log-entry log-state ::exception label))
  ([log-state ex label message]
   (add-log-entry log-state ::exception label message))
  ([log-state ex label message original-details]
   (let [details {::original-details original-details
                  ::problem (exception-details ex)}]
