   [config wire-facts]
   (let [context {"node" (get wire-facts "certname")}]
     (-> wire-facts
-        (update-in ["certname"] anonymize-leaf :node context config)
-        (update-in ["values"] anonymize-fact-values context config)
-        (update-in ["environment"] anonymize-leaf :environment context config))))
+        (update "certname" anonymize-leaf :node context config)
+        (update "values" anonymize-fact-values context config)
+        (update "environment" anonymize-leaf :environment context config))))
 
 (def anon-profiles
   ^{:doc "Hard coded rule engine profiles indexed by profile name"}

(defn anonymize-containment-path
  "Anonymize a collection of containment path resource references from an event"
  [path context config]
  {:pre  [(coll? path)]
   :post [(coll? %)]}
  (map #(anonymize-containment-path-element % context config) path))

(defn anonymize-log-source
  "assumes that capital words are types, bracketed phrases are parameter names,

  {:pre  [(or (coll? rels) (string? rels))]
   :post [(= (type %) (type rels))]}
  (if (coll? rels)
    (mapv #(anonymize-reference % context config) rels)
    (anonymize-reference rels context config)))

(defn anonymize-aliases
