   (let [subelements (get element subelement-key)
         subelement-aliases (get-field-aliases 
                              subelements subelement-name-key subelement-alias-map)]
-    (-> element
-        (update subelement-key concat subelement-aliases)))) 
+    (update element subelement-key concat subelement-aliases))) 
 
 (defn update-collection-with-platform-aliases
   "Returns the collection with humanizer platform aliases added.

  "Returns the alias map like 
   {\"platform\" {\"TERRA\" [\"AM-1\" \"am-1\" \"AM 1\"] \"OTHERPLATFORMS\" [\"otheraliases\"]}
    \"tiling_system_name\" {\"TILE\" [\"tile_1\" \"tile_2\"] \"OTHERTILES\" [\"otheraliases\"]}
    \"instrument\" {\"INSTRUMENT\" [\"instr1\" \"instr2\"] \"OTHERTILES\" [\"otheraliases\"]}}"
  [humanizer]
  (into {}
        (for [[k1 v1] 

                         :short-name)
        instr-alias-map (get humanizer-alias-map "instrument")
        plats (get collection plat-key)
        updated-plats (map #(update-element-with-subelement-aliases 
                              % instr-key instr-name-key instr-alias-map) plats)]
    (-> collection
        (assoc plat-key updated-plats)))) 

(defn update-collection-with-aliases
