   Returns a list of vectors of two elements, the first being the attribute key,
   and the second the value.
   The keys are expanded like <association name>_<associated item index>_<attribute name>"
-  (let [association-name   (name (:name    association))
-        association-schema (:schema  association)]
+  (let [association-name   (name (:name association))
+        association-schema (:schema association)]
     (apply concat
     (map-indexed
       (fn [index item-string]
          (let [item-name         (str association-name "_" index)
                named-association (assoc association :name item-name)]
            (if (empty? association-schema)
-             [ item-name item-string ]
+             [item-name item-string]
              (explode-nested-item named-association item-string))))
       items))))
 

   [kixi.hecuba.storage.db :as db]
   [kixi.hecuba.storage.sha1 :as sha1]
   [kixi.hecuba.web-paths :as p]
   [kixi.hecuba.data.users :as users]))

(def ^:private entity-profiles-resource (p/resource-path-string :entity-profiles-resource))


          username   (sec/session-username (-> ctx :request :session))
          profile_id (sha1/gen-key :profile profile)]
      (when (and entity_id timestamp)
        (when (seq (entity/get-by-id session entity_id))
          (let [query-profile (-> profile
                                 (assoc :user_id username)
                                 (update-stringified-lists
