pull expressions in queries throws exception

[fnumatic]

(let [db (->> 
                 {:id     0
                  :name "buzz"
                  :foo "bar"}
                 (vector :dx/merge)
                 (dx/commit (dx/create-dx)))]
    (dx/q '[:find [(pull ?e [:name])]
            :where [?e :foo "bar"]] db))

throws "unrecognized input" exception