                           (.state custard)
                           c/tags)
                  [])]
-    {:value (mapv #(select-keys % query) tags)}))
+    {:value (mapv #(select-keys % (extract-keys query))
+                  tags)}))
 
 (def parser (om/parser {:read readf :mutate mutatef}))

                                (.state custard)
                                c/components)
                         [])]
    {:value (mapv #(select-keys % query) components)}))

(defmethod readf :work-items
  [{:keys [custard query]} _ {:keys [state]}]

                                (.state custard)
                                c/work-items)
                       [])]
    {:value (mapv #(select-keys % (extract-keys query))
                  work-items)}))

(defmethod readf :tags
  [{:keys [custard query]} _ {:keys [state]}]
