   ([^AnalyticsClient client ^String user-id ^String event properties & [{:keys [timestamp options callback]}]]
      (let [the-callback (if callback (reify Callback (onResponse [this success message] (callback success message))))
            properties (EventProperties. (into-array Object (apply concat (vec (map-keys name properties)))))
-           options (reduce (fn [t [k v]] (.put t (name k) v)) (Context.) options)]
+           options (reduce (fn [t [k v]] (.put t (name k) v)) (context.) options)]
        (.track client user-id event properties timestamp options the-callback))))
 
 (defn make-alias

                                (.setMaxQueueSize max-queue-size)
                                (.setTimeout timeout)))))

(defn identify
  "Identifying a user ties all of their actions to an id, and associates user traits to that id.


  ([^AnalyticsClient client ^String from ^String to] (make-alias client from to {}))
  ([^AnalyticsClient client ^String from ^String to & [{:keys [timestamp options callback]}]]
     (let [the-callback (if callback (reify Callback (onResponse [this success message] (callback success message))))
           options (reduce (fn [t [k v]] (.put t (name k) v)) (context) options)]
       (.alias client from to timestamp options the-callback))))

(defn flush-queue
