       (def log log-debug))
     (if proceed?
       (let [options {:version             (case (:version args)
-                                            "par" :par
-                                                  :seq)
+                                            "txact" :txact
+                                                    :orig)
                      :n-workers           (:workers args)
-                     :n-secondary-workers (if (not= (:version args) "par")
+                     :n-secondary-workers (if (not= (:version args) "txact")
                                             0
                                             (:secondary-workers args))
                      :n-reservations      (:reservations args)
                      :n-relations         (:relations args)
                      :n-queries           (:queries args)}]
         (log "options: " options)
-        (when (and (= (:version args) :seq)
+        (when (and (= (:version args) :orig)
                    (not= (:secondary-workers args) 20)) ; 20 is the default
           (println "WARNING: did not expect number of secondary workers to be"
-            "specified when version is 'seq'."))
+            "specified when version is 'orig'."))
         (when (not= (rem (:n-reservations options) (:n-workers options)) 0)
           (println "WARNING: number of reservations is not divisible by number"
             "of workers."))

        :pnr    pnr)))
  (log "finished reservation" (:id @reservation)))

(defn process-reservation-par
  [reservation
   {:keys [cars flights rooms]}
   {:keys [n-queries]}
   secondary-workers]
  "Process a reservation: find a car, flight, and room for the reservation and
  update the data structures."
  (dosync
    (log "start tx for reservation" (:id @reservation))
    (send (rand-nth secondary-workers) :car    cars    reservation n-queries)

                              timestamp])]
    (base64/str->base64 data)))

(defn process-reservation-orig
  [reservation
   {:keys [cars flights rooms]}
   {:keys [n-queries]}]
  "Process a reservation: find a car, flight, and room for the reservation,
  generate a PNR, and update the data structures.

  This version is similar to the original vacation benchmark."
  (dosync
    (log "start tx for reservation" (:id @reservation))
    (let [n-people     (:n-people @reservation)
