diff --git a/project.clj b/project.clj
index 7e2ecbd0..cf4c7e18 100644
--- a/project.clj
+++ b/project.clj
@@ -25,7 +25,7 @@
                                                  :optimizations        :advanced
                                                  :source-map           "target/advanced/datomish.js.map"
                                                  :pretty-print         true
-                                                 :recompile-dependents false
+                                                 :recompile-dependents true
                                                  :parallel-build       true
                                                  }}
                        :test {
@@ -35,7 +35,7 @@
                                              :main                 datomish.test
                                              :optimizations        :none
                                              :source-map           true
-                                             :recompile-dependents false
+                                             :recompile-dependents true
                                              :parallel-build       true
                                              :target               :nodejs
                                              }}
diff --git a/src/datomish/promise_sqlite.cljs b/src/datomish/promise_sqlite.cljs
index 1aff74a7..539fd5da 100644
--- a/src/datomish/promise_sqlite.cljs
+++ b/src/datomish/promise_sqlite.cljs
@@ -30,7 +30,7 @@
       (.close (.-db db)))))
 
 (defn open
-  [path & {:keys [mode] :or {:mode 6}}]
+  [path & {:keys [mode] :or {mode 6}}]
   (cljs-promises.async/pair-port
     (->
       (.open sqlite.DB path (clj->js {:mode mode}))
diff --git a/src/datomish/test_macros.cljc b/src/datomish/test_macros.cljc
index 1f71e78c..3145695d 100644
--- a/src/datomish/test_macros.cljc
+++ b/src/datomish/test_macros.cljc
@@ -3,7 +3,8 @@
 ;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
 (ns datomish.test-macros
-  (:refer-clojure :exclude [with-open])
+  #?(:cljs
+     (:require-macros [datomish.test-macros]))
   (:require
    [datomish.pair-chan]))
 
@@ -29,42 +30,10 @@
        (cljs.test/async done#
                         (->
                           (datomish.pair-chan/go-pair ~@body)
-                          (cljs.core.async/take! (fn [v# e#]
+                          (cljs.core.async/take! (fn [[v# e#]]
                                                    (cljs.test/is (= e# nil))
                                                    (done#))))))
      (clojure.test/deftest
        ~(with-meta name {:async true})
        (let [[v# e#] (clojure.core.async/<!! (datomish.pair-chan/go-pair ~@body))]
          (clojure.test/is (= e# nil))))))
-
-;; CLJS doesn't expose `with-open`, for reasons unknown.  Duplicate the definition of
-;; `with-open` (and `assert-args`) here.
-;; See https://github.com/clojure/clojure/blob/clojure-1.7.0/src/clj/clojure/core.clj#L3679-L3698.
-(defmacro ^{:private true} assert-args
-  [& pairs]
-  `(do (when-not ~(first pairs)
-         (throw (IllegalArgumentException.
-                  (str (first ~'&form) " requires " ~(second pairs) " in " ~'*ns* ":" (:line (meta ~'&form))))))
-       ~(let [more (nnext pairs)]
-          (when more
-            (list* `assert-args more)))))
-
-(defmacro with-open
-  "bindings => [name init ...]
-  Evaluates body in a try expression with names bound to the values
-  of the inits, and a finally clause that calls (.close name) on each
-  name in reverse order."
-  {:added "1.0"}
-  [bindings & body]
-  (assert-args
-    (vector? bindings) "a vector for its binding"
-    (even? (count bindings)) "an even number of forms in binding vector")
-  (cond
-    (= (count bindings) 0) `(do ~@body)
-    (symbol? (bindings 0)) `(let ~(subvec bindings 0 2)
-                              (try
-                                (with-open ~(subvec bindings 2) ~@body)
-                                (finally
-                                  (. ~(bindings 0) close))))
-    :else (throw (java.lang.IllegalArgumentException.
-                   "with-open only allows Symbols in bindings"))))
diff --git a/test/datomish/jdbc_sqlite_test.clj b/test/datomish/jdbc_sqlite_test.clj
index be268016..21b7c068 100644
--- a/test/datomish/jdbc_sqlite_test.clj
+++ b/test/datomish/jdbc_sqlite_test.clj
@@ -14,35 +14,40 @@
 
 (deftest-async test-all-rows
   (with-tempfile [t (tempfile)]
-    (with-open [db (<? (j/open t))]
-      (<? (s/execute! db ["CREATE TABLE test (a INTEGER)"]))
-      (<? (s/execute! db ["INSERT INTO test VALUES (?)" 1]))
-      (<? (s/execute! db ["INSERT INTO test VALUES (?)" 2]))
-      (let [rows (<? (s/all-rows db ["SELECT * FROM test ORDER BY a ASC"]))]
-        (is (= rows [{:a 1} {:a 2}]))))))
+    (let [db (<? (j/open t))]
+      (try
+        (<? (s/execute! db ["CREATE TABLE test (a INTEGER)"]))
+        (<? (s/execute! db ["INSERT INTO test VALUES (?)" 1]))
+        (<? (s/execute! db ["INSERT INTO test VALUES (?)" 2]))
+        (let [rows (<? (s/all-rows db ["SELECT * FROM test ORDER BY a ASC"]))]
+          (is (= rows [{:a 1} {:a 2}])))
+        (finally
+          (<? (s/close db)))))))
 
 (deftest-async test-in-transaction!
   (with-tempfile [t (tempfile)]
-    (with-open [db (<? (j/open t))]
-      (<? (s/execute! db ["CREATE TABLE ta (a INTEGER)"]))
-      (<? (s/execute! db ["CREATE TABLE tb (b INTEGER)"]))
-      (<? (s/execute! db ["INSERT INTO ta VALUES (?)" 1]))
-      (let [[v e] (<! (s/in-transaction! db #(s/execute! db ["INSERT INTO tb VALUES (?)" 2])))]
-        (is (not e)))
-      (let [rows (<? (s/all-rows db ["SELECT * FROM ta ORDER BY a ASC"]))]
-        (is (= rows [{:a 1}])))
-      (let [rows (<? (s/all-rows db ["SELECT * FROM tb ORDER BY b ASC"]))]
-        (is (= rows [{:b 2}])))
-      (println "a")
-      (let [f #(go-pair
-                 ;; The first succeeds ...
-                 (<? (s/execute! db ["INSERT INTO ta VALUES (?)" 3]))
-                 ;; ... but will get rolled back by the second failing.
-                 (<? (s/execute! db ["INSERT INTO tb VALUES (?)" 4 "bad parameter"])))
-            [v e] (<! (s/in-transaction! db f))]
-        (is (some? e)))
-      ;; No changes, since the transaction as a whole failed.
-      (let [rows (<? (s/all-rows db ["SELECT * FROM ta ORDER BY a ASC"]))]
-        (is (= rows [{:a 1}])))
-      (let [rows (<? (s/all-rows db ["SELECT * FROM tb ORDER BY b ASC"]))]
-        (is (= rows [{:b 2}]))))))
+    (let [db (<? (j/open t))]
+      (try
+        (<? (s/execute! db ["CREATE TABLE ta (a INTEGER)"]))
+        (<? (s/execute! db ["CREATE TABLE tb (b INTEGER)"]))
+        (<? (s/execute! db ["INSERT INTO ta VALUES (?)" 1]))
+        (let [[v e] (<! (s/in-transaction! db #(s/execute! db ["INSERT INTO tb VALUES (?)" 2])))]
+          (is (not e)))
+        (let [rows (<? (s/all-rows db ["SELECT * FROM ta ORDER BY a ASC"]))]
+          (is (= rows [{:a 1}])))
+        (let [rows (<? (s/all-rows db ["SELECT * FROM tb ORDER BY b ASC"]))]
+          (is (= rows [{:b 2}])))
+        (let [f #(go-pair
+                   ;; The first succeeds ...
+                   (<? (s/execute! db ["INSERT INTO ta VALUES (?)" 3]))
+                   ;; ... but will get rolled back by the second failing.
+                   (<? (s/execute! db ["INSERT INTO tb VALUES (?)" 4 "bad parameter"])))
+              [v e] (<! (s/in-transaction! db f))]
+          (is (some? e)))
+        ;; No changes, since the transaction as a whole failed.
+        (let [rows (<? (s/all-rows db ["SELECT * FROM ta ORDER BY a ASC"]))]
+          (is (= rows [{:a 1}])))
+        (let [rows (<? (s/all-rows db ["SELECT * FROM tb ORDER BY b ASC"]))]
+          (is (= rows [{:b 2}])))
+        (finally
+          (<? (s/close db)))))))
diff --git a/test/datomish/promise_sqlite_test.cljs b/test/datomish/promise_sqlite_test.cljs
index e34b158e..dde6f23c 100644
--- a/test/datomish/promise_sqlite_test.cljs
+++ b/test/datomish/promise_sqlite_test.cljs
@@ -5,7 +5,7 @@
 (ns datomish.promise-sqlite-test
   (:require-macros
    [datomish.pair-chan :refer [go-pair <?]]
-   [datomish.test-macros :refer [deftest-async with-open]]
+   [datomish.test-macros :refer [deftest-async]]
    [datomish.node-tempfile-macros :refer [with-tempfile]]
    [cljs.core.async.macros])
   (:require
@@ -18,35 +18,40 @@
 
 (deftest-async test-all-rows
   (with-tempfile [t (tempfile)]
-    (with-open [db (<? (ps/open (.name t) :mode 6))]
-      (<? (s/execute! db ["CREATE TABLE test (a INTEGER)"]))
-      (<? (s/execute! db ["INSERT INTO test VALUES (?)" 1]))
-      (<? (s/execute! db ["INSERT INTO test VALUES (?)" 2]))
-      (let [rows (<? (s/all-rows db ["SELECT * FROM test ORDER BY a ASC"]))]
-        (is (= rows [{:a 1} {:a 2}]))))))
+    (let [db (<? (ps/open (.-name t)))]
+      (try
+        (<? (s/execute! db ["CREATE TABLE test (a INTEGER)"]))
+        (<? (s/execute! db ["INSERT INTO test VALUES (?)" 1]))
+        (<? (s/execute! db ["INSERT INTO test VALUES (?)" 2]))
+        (let [rows (<? (s/all-rows db ["SELECT * FROM test ORDER BY a ASC"]))]
+          (is (= rows [{:a 1} {:a 2}])))
+        (finally
+          (<? (s/close db)))))))
 
 (deftest-async test-in-transaction!
   (with-tempfile [t (tempfile)]
-    (with-open [db (<? (ps/open (.name t) :mode 6))]
-      (<? (s/execute! db ["CREATE TABLE ta (a INTEGER)"]))
-      (<? (s/execute! db ["CREATE TABLE tb (b INTEGER)"]))
-      (<? (s/execute! db ["INSERT INTO ta VALUES (?)" 1]))
-      (let [[v e] (<! (s/in-transaction! db #(s/execute! db ["INSERT INTO tb VALUES (?)" 2])))]
-        (is (not e)))
-      (let [rows (<? (s/all-rows db ["SELECT * FROM ta ORDER BY a ASC"]))]
-        (is (= rows [{:a 1}])))
-      (let [rows (<? (s/all-rows db ["SELECT * FROM tb ORDER BY b ASC"]))]
-        (is (= rows [{:b 2}])))
-      (println "a")
-      (let [f #(go-pair
-                 ;; The first succeeds ...
-                 (<? (s/execute! db ["INSERT INTO ta VALUES (?)" 3]))
-                 ;; ... but will get rolled back by the second failing.
-                 (<? (s/execute! db ["INSERT INTO tb VALUES (?)" 4 "bad parameter"])))
-            [v e] (<! (s/in-transaction! db f))]
-        (is (some? e)))
-      ;; No changes, since the transaction as a whole failed.
-      (let [rows (<? (s/all-rows db ["SELECT * FROM ta ORDER BY a ASC"]))]
-        (is (= rows [{:a 1}])))
-      (let [rows (<? (s/all-rows db ["SELECT * FROM tb ORDER BY b ASC"]))]
-        (is (= rows [{:b 2}]))))))
+    (let [db (<? (ps/open (.-name t)))]
+      (try
+        (<? (s/execute! db ["CREATE TABLE ta (a INTEGER)"]))
+        (<? (s/execute! db ["CREATE TABLE tb (b INTEGER)"]))
+        (<? (s/execute! db ["INSERT INTO ta VALUES (?)" 1]))
+        (let [[v e] (<! (s/in-transaction! db #(s/execute! db ["INSERT INTO tb VALUES (?)" 2])))]
+          (is (not e)))
+        (let [rows (<? (s/all-rows db ["SELECT * FROM ta ORDER BY a ASC"]))]
+          (is (= rows [{:a 1}])))
+        (let [rows (<? (s/all-rows db ["SELECT * FROM tb ORDER BY b ASC"]))]
+          (is (= rows [{:b 2}])))
+        (let [f #(go-pair
+                   ;; The first succeeds ...
+                   (<? (s/execute! db ["INSERT INTO ta VALUES (?)" 3]))
+                   ;; ... but will get rolled back by the second failing.
+                   (<? (s/execute! db ["INSERT INTO tb VALUES (?)" 4 "bad parameter"])))
+              [v e] (<! (s/in-transaction! db f))]
+          (is (some? e)))
+        ;; No changes, since the transaction as a whole failed.
+        (let [rows (<? (s/all-rows db ["SELECT * FROM ta ORDER BY a ASC"]))]
+          (is (= rows [{:a 1}])))
+        (let [rows (<? (s/all-rows db ["SELECT * FROM tb ORDER BY b ASC"]))]
+          (is (= rows [{:b 2}])))
+        (finally
+          (<? (s/close db)))))))
diff --git a/test/datomish/test_macros_test.cljs b/test/datomish/test_macros_test.cljs
index 44dbfa14..2c31da00 100644
--- a/test/datomish/test_macros_test.cljs
+++ b/test/datomish/test_macros_test.cljs
@@ -5,10 +5,11 @@
 (ns datomish.test-macros-test
   (:require-macros
    [datomish.pair-chan :refer [go-pair]]
-   [datomish.test-macros :refer [deftest-async]]
    [cljs.core.async.macros])
-  (:require [cljs.core.async]
-            [cljs.test :refer-macros [is are deftest testing async]]))
+  (:require
+   [datomish.test-macros :refer-macros [deftest-async]]
+   [cljs.core.async]
+   [cljs.test :refer-macros [is are deftest testing async]]))
 
 (deftest sync-test
   (is (= 1 1)))