         events))))
 
 (defn type-string
-  ([container target str] (.evolve container target (create-string-type-events str)))
+  ([container target str] (.evolve container (path target) (create-string-type-events str)))
   ([container str] (.evolve container (create-string-type-events str))))
 
 (defn type-key

;; Combining test into scenarios
;;

(def standard-interstep-delay-millis 100)

(defn- gen-wait [clause] (list 'Thread/sleep (list '* clause standard-interstep-delay-millis)))


;;

(defn wait-table-cell-id [container table-path coord]
  (wait-for-property-pred container (path table-path) :in-use-model
                          (fn [v] (let [sc->id (:screen-coord->cell-id v)]
                                    (get sc->id coord)))))

(defn wait-table-model-coords-shown [container table-path coords]
  (wait-for-property-pred container (path table-path) :in-use-model
                              (fn [v] (let [sc->id (:screen-coord->cell-id v)]
                                        (= (set coords) (set (map (fn [[k _cid]] k) sc->id)))))))

(defn wait-table-cell-property
  ([container table-path cell-subpath coord property pred]
   (let [cid (wait-table-cell-id container table-path coord)]
     (wait-for-property-pred container (path (vec (concat (conj table-path cid) cell-subpath))) property pred)))
  ([container table-path coord property pred] (wait-table-cell-property container table-path [] coord property pred)))