       (scf-storage/maybe-activate-node! certname producer-timestamp)
       (scf-storage/replace-catalog! catalog received))
     (log/info (trs "[{0}-{1}] ''{2}'' command processed for {3}"
-                   id (tcoerce/to-long received) (command-names :replace-catalog) certname))))
+                   (str id)
+                   (str (tcoerce/to-long received))
+                   (command-names :replace-catalog)
+                   certname))))
 
 (defn replace-catalog [{:keys [payload received version] :as command} db]
   (let [validated-payload (upon-error-throw-fatality

        (scf-storage/add-certname! certname))
      (scf-storage/deactivate-node! certname producer-timestamp))
    (log/info (trs "[{0}-{1}] ''{2}'' command processed for {3}"
                   id (tcoerce/to-long received) (command-names :deactivate-node) certname))))

(defn deactivate-node [{:keys [payload version] :as command} db]
  (-> command

      (scf-storage/maybe-activate-node! certname producer-timestamp)
      (scf-storage/replace-facts! fact-data))
    (log/info (trs "[{0}-{1}] ''{2}'' command processed for {3}"
                   (str id)
                   (str (tcoerce/to-long received))
                   (command-names :replace-facts)
                   certname))))

(defn replace-facts [{:keys [payload version received] :as command} db]
  (let [validated-payload (upon-error-throw-fatality
