 
 (defn fire-action [db action-request]
   (let [action-event (populate-action-event db action-request)]
-    (->>
-      (map #(invoke-action db action-event))
-      first
-      )
+    (invoke-action db action-event)
     )
   )

      (-> action-request :action-ctx keys)
      (->> action-request :action-ctx vals (map #(find-entity-by-id db %)))
      )
    }
  )


    ]
    (println "Getting response " handler-response)
    (if-let [action-ctx (get-in handler-response [:body :action-ctx])]
      {
        :action-ctx
        (zipmap
          (keys action-ctx)
          (->> action-ctx vals (mapv #(save-entity db %)))
          )
        :params-ctx (get-in handler-response [:body :params-ctx])
        :reasoning-msg (get-in handler-response [:body :reasoning-msg])
        }
      )
