     (require-logged-in!)
     (db/with-db [conn {:read-only? true}]
       (let [cong-id (UUID/fromString (get-in request [:params :congregation]))
-            user-id (current-user-id conn)
+            user-id (current-user-id)
             state (projections/cached-state)
             congregation (congregation/get-my-congregation state cong-id user-id)]
         (when-not congregation

                            (fix-user-for-liberator)
                            (assoc :authenticated (not (nil? auth/*user*))))})))

(defn- current-user-id [conn]
  (let [id (:user/id (user/get-by-subject conn (:sub auth/*user*)))]
    (assert id)
    id))


      (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)
