     driver))
 
 (defn connect-driver [driver & [opt]]
-  (wait 2)
+  (wait-running driver)
   (let [session (create-session driver)]
     (swap! driver assoc :session session)
     driver))

;;
;; predicates
;;

(defn driver? [driver type]
  (= (dispatch-driver driver) type))

(defn wait-has-class [driver q class & [opt]]
  (wait-predicate #(has-class? driver q class) opt))

(defn wait-running [driver & [opt]]
  (wait-predicate #(running? driver) opt))

;;
;; touch
;;
