 
 (defn open-pool [ desc ]
   (log/info "Opening sql-file (pooled):" desc)  
-  (let [conn (hsqldb-conn desc)
-        cpds (doto (com.zaxxer.hikari.HikariDataSource.)
-               (.setDriverClassName (:classname conn))
-               (.setJdbcUrl (str "jdbc:hsqldb:" (:subname conn)))
-               (.setMaximumPoolSize (get desc :pool-size 4)))]
-    (-> conn
-        (assoc :datasource cpds)
-        (ensure-schema [ "sql-file" 0]))))
+  (let [conn (open-local desc)]
+    (assoc conn :datasource
+           (doto (com.zaxxer.hikari.HikariDataSource.)
+             (.setDriverClassName (:classname conn))
+             (.setJdbcUrl (str "jdbc:hsqldb:" (:subname conn)))
+             (.setMaximumPoolSize (get desc :pool-size 4))))))
 

        (throw (Exception. (str "Error installing schema: " schema) ex))))
    (set-schema-version! conn schema-name schema-version)))

(defn ensure-schema [ conn schema ]
  "Locate and run the scripts necessary to install the specified
schema in the target database instance."

            (recur)))))
    conn))

(defn backup-to-file-blocking [ conn output-path ]
  (jdbc/db-do-prepared conn (str "BACKUP DATABASE TO '" output-path "' BLOCKING")))

