       (do (when-not (.isClosed rs)
             (.close rs))
           data))))
+        ;; Maybe make the request result adhere to the sequence protocol?  Can with-open be used, as
+        ;; rs seems to be closable?  The function is hard to understand as it is.
 
 (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))
  (when-let [uo (:user-object options)] (.setUserObject session uo))
  (when-let [tm (:transaction-mode options)]
    (.setTransactionMode session (transaction-modes tm)))

  ([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.


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
