       {:value (vec keys)} _)))
 
 (defn fill [driver q text]
-  (fill* driver (find driver q) text))
+  (fill* driver (query driver q) text))
 
 ;;
 ;; submit

    (:value resp)))

(defn get-element-attr [driver q name]
  (get-element-attr* driver (find driver q) name))

(defn get-element-attrs [driver q & names]
  (let [el (find driver q)]
    (mapv
     #(get-element-attr* driver el %)
     names)))

    (:value resp)))

(defn get-element-tag [driver q]
  (get-element-tag* driver (query driver q)))

(defn get-element-text* [driver el]
  (with-resp driver :get
