 (defn list-congregations [request]
   (auth/with-authenticated-user request
     (require-logged-in!)
-    (db/with-db [conn {:read-only? true}]
-      (ok (->> (congregation/get-my-congregations (projections/cached-state) (current-user-id conn))
-               (map (fn [congregation]
-                      {:id (:congregation/id congregation)
-                       :name (:congregation/name congregation)})))))))
+    (ok (->> (congregation/get-my-congregations (projections/cached-state) (current-user-id))
+             (map (fn [congregation]
+                    {:id (:congregation/id congregation)
+                     :name (:congregation/name congregation)}))))))
 
 (def ^:private format-key-for-api (memoize (comp csk/->camelCaseString name)))
 

(defn- api-command! [conn command]
  (let [command (assoc command
                       :command/time ((:now config/env))
                       :command/user (current-user-id conn))]
    (try
      (congregation/command! conn (projections/cached-state)
                             command)

      (assert (not (str/blank? name)) ; TODO: test this
              {:name name})
      (db/with-db [conn {}]
        (let [user-id (current-user-id)]
          (binding [events/*current-user* user-id]
            (let [cong-id (congregation/create-congregation! conn name)]
              (congregation/grant! conn cong-id user-id :view-congregation)
