 (extend-protocol pr/ITransactable
   Repository
   (begin [repo]
-    (-> repo .getConnection .begin))
+    (-> repo .getConnection (.setAutoCommit false)))
 
   (commit [repo]
     (-> repo .getConnection .commit))


  RepositoryConnection
  (begin [repo]
    (-> repo .begin))

  (commit [repo]
    (-> repo .commit))

  (if (instance? RepositoryConnection repo)
    repo
    (let [c (.getConnection repo)]
      c)))

(defn prepare-query
