   (reaction
     (->> (@state :users)
          vals
-         (filter (fn [u] (contains? (set (u :group-ids)) group-id))))))
+         (filter (fn [u] (contains? (set (u :group-ids)) group-id)))
+         doall)))
 
 (defn get-open-group-id
   [state _]

                     (or (empty? (thread :tag-ids))
                         (contains?
                           (into #{} (map group-for-tag) (thread :tag-ids))
                           group-id))))))))

(defn get-nickname
  [state [_ user-id]]

(defn get-users-in-open-group
  [state [_ status]]
  (reaction (->> @(get-users-in-group state [nil (@state :open-group-id)])
                 (filter (fn [u] (= status (u :status))))
                 doall)))

(defn get-user-id
  [state _]
