   (defer
     (let [q (.forUpdate @q)]
       (if (seq fields)
-        (->> (map field* fields)
+        (->> (map -field fields)
              (into-array org.jooq.Field)
              (.of q))
         q))))


  clojure.lang.PersistentVector
  (-sort-field ^org.jooq.SortField [v]
    (let [^org.jooq.Field field (field* (first v))
          ^org.jooq.SortField field (case (second v)
                                      :asc (.asc field)
                                      :desc (.desc field))]

  [step name & [type]]
  (defer
    (let [step (-> (-unwrap step)
                   (.drop (-field name)))]
      (case type
        :cascade (.cascade step)
        :restrict (.restrict step)
