 (deflogger error)
 
 (defn exception
+  ([log-state ex label]
+   (add-log-entry log-state ::exception label))
   ([log-state ex label message]
-   (exception log-state ex label message nil))
+   (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)}]

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

       ([log-state#
         label#
         message#]
        (add-log-entry log-state# ~tag label# message#))
       ([log-state#
         label#]
        (add-log-entry log-state# ~tag label#)))))

(defn exception-details
  [ex]
