   ([uri user pwd content-base options]
    (-> (create-session* uri user pwd content-base)
        (configure-session options))))
+     ;; I find the repetition of configure-session cluttering.  Probably not a big deal.
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

      (do (when-not (.isClosed rs)
            (.close rs))
          data))))

(defn execute-xquery
  "Execute the given xquery query as a request to the database

  (when-let [dro (:default-request-options options)]
    (.setDefaultRequestOptions session (request-options dro)))
  (when-let [lgr (:logger options)] (.setLogger session lgr))
  ;; Please always put the when body onto a new line (but see comment about macro above)
  (when-let [uo (:user-object options)] (.setUserObject session uo))
  (when-let [tm (:transaction-mode options)]
    (.setTransactionMode session (transaction-modes tm)))
