diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc
index a77b9ab..c783d3f 100644
--- a/src/honey/sql.cljc
+++ b/src/honey/sql.cljc
@@ -180,7 +180,7 @@
         (reduce (fn [[sql params] [sql' & params']]
                   [(conj sql sql') (if params' (into params params') params)])
                 [[] []]
-                (map #'format-dsl xs))]
+                (map #(format-dsl % {:nested? true}) xs))]
     (into [(str/join (str " " (sql-kw k) " ") sqls)] params)))
 
 (defn- format-expr-list [xs & [opts]]
diff --git a/test/honey/sql_test.cljc b/test/honey/sql_test.cljc
index 915e4a4..5adf001 100644
--- a/test/honey/sql_test.cljc
+++ b/test/honey/sql_test.cljc
@@ -169,30 +169,30 @@
   ;;   ORDER BY foo ASC
   (is (= (format {:union [{:select [:foo] :from [:bar1]}
                           {:select [:foo] :from [:bar2]}]})
-         ["SELECT foo FROM bar1 UNION SELECT foo FROM bar2"]))
+         ["(SELECT foo FROM bar1) UNION (SELECT foo FROM bar2)"]))
 
   (testing "union complex values"
     (is (= (format {:union [{:select [:foo] :from [:bar1]}
                             {:select [:foo] :from [:bar2]}]
                     :with [[[:bar {:columns [:spam :eggs]}]
                             {:values [[1 2] [3 4] [5 6]]}]]})
-           ["WITH bar (spam, eggs) AS (VALUES (?, ?), (?, ?), (?, ?)) SELECT foo FROM bar1 UNION SELECT foo FROM bar2"
+           ["WITH bar (spam, eggs) AS (VALUES (?, ?), (?, ?), (?, ?)) (SELECT foo FROM bar1) UNION (SELECT foo FROM bar2)"
             1 2 3 4 5 6]))))
 
 (deftest union-all-test
   (is (= (format {:union-all [{:select [:foo] :from [:bar1]}
                               {:select [:foo] :from [:bar2]}]})
-         ["SELECT foo FROM bar1 UNION ALL SELECT foo FROM bar2"])))
+         ["(SELECT foo FROM bar1) UNION ALL (SELECT foo FROM bar2)"])))
 
 (deftest intersect-test
   (is (= (format {:intersect [{:select [:foo] :from [:bar1]}
                               {:select [:foo] :from [:bar2]}]})
-         ["SELECT foo FROM bar1 INTERSECT SELECT foo FROM bar2"])))
+         ["(SELECT foo FROM bar1) INTERSECT (SELECT foo FROM bar2)"])))
 
 (deftest except-test
   (is (= (format {:except [{:select [:foo] :from [:bar1]}
                            {:select [:foo] :from [:bar2]}]})
-         ["SELECT foo FROM bar1 EXCEPT SELECT foo FROM bar2"])))
+         ["(SELECT foo FROM bar1) EXCEPT (SELECT foo FROM bar2)"])))
 
 (deftest inner-parts-test
   (testing "The correct way to apply ORDER BY to various parts of a UNION"
@@ -206,7 +206,7 @@
                         :order-by [[:amount :desc]]
                         :limit 5}]}]
               :order-by [[:amount :asc]]})
-           ["SELECT amount, id, created_on FROM transactions UNION SELECT amount, id, created_on FROM (SELECT amount, id, created_on FROM other_transactions ORDER BY amount DESC LIMIT ?) ORDER BY amount ASC" 5]))))
+           ["(SELECT amount, id, created_on FROM transactions) UNION (SELECT amount, id, created_on FROM (SELECT amount, id, created_on FROM other_transactions ORDER BY amount DESC LIMIT ?)) ORDER BY amount ASC" 5]))))
 
 (deftest compare-expressions-test
   (testing "Sequences should be fns when in value/comparison spots"
@@ -238,14 +238,14 @@
                           {:select [:foo] :from [:bar2]}]
                   :with [[[:bar {:columns [:spam :eggs]}]
                           {:values [[1 2] [3 4] [5 6]]}]]})
-         ["WITH bar (spam, eggs) AS (VALUES (?, ?), (?, ?), (?, ?)) SELECT foo FROM bar1 UNION SELECT foo FROM bar2" 1 2 3 4 5 6])))
+         ["WITH bar (spam, eggs) AS (VALUES (?, ?), (?, ?), (?, ?)) (SELECT foo FROM bar1) UNION (SELECT foo FROM bar2)" 1 2 3 4 5 6])))
 
 (deftest union-all-with-cte
   (is (= (format {:union-all [{:select [:foo] :from [:bar1]}
                               {:select [:foo] :from [:bar2]}]
                   :with [[[:bar {:columns [:spam :eggs]}]
                           {:values [[1 2] [3 4] [5 6]]}]]})
-         ["WITH bar (spam, eggs) AS (VALUES (?, ?), (?, ?), (?, ?)) SELECT foo FROM bar1 UNION ALL SELECT foo FROM bar2" 1 2 3 4 5 6])))
+         ["WITH bar (spam, eggs) AS (VALUES (?, ?), (?, ?), (?, ?)) (SELECT foo FROM bar1) UNION ALL (SELECT foo FROM bar2)" 1 2 3 4 5 6])))
 
 (deftest parameterizer-none
   (testing "array parameter -- fail: parameterizer"
@@ -261,7 +261,7 @@
                     :with [[[:bar {:columns [:spam :eggs]}]
                             {:values [[1 2] [3 4] [5 6]]}]]}
                    {:parameterizer :none})
-           ["WITH bar (spam, eggs) AS (VALUES (1, 2), (3, 4), (5, 6)) SELECT foo FROM bar1 UNION SELECT foo FROM bar2"]))))
+           ["WITH bar (spam, eggs) AS (VALUES (1, 2), (3, 4), (5, 6)) (SELECT foo FROM bar1) UNION (SELECT foo FROM bar2)"]))))
 
 (deftest inline-was-parameterizer-none
   (testing "array parameter"
@@ -278,7 +278,7 @@
                     :with [[[:bar {:columns [:spam :eggs]}]
                             {:values (mapv #(mapv vector (repeat :inline) %)
                                            [[1 2] [3 4] [5 6]])}]]})
-           ["WITH bar (spam, eggs) AS (VALUES (1, 2), (3, 4), (5, 6)) SELECT foo FROM bar1 UNION SELECT foo FROM bar2"]))))
+           ["WITH bar (spam, eggs) AS (VALUES (1, 2), (3, 4), (5, 6)) (SELECT foo FROM bar1) UNION (SELECT foo FROM bar2)"]))))
 
 #_(defmethod parameterize :single-quote [_ value pname] (str \' value \'))
 #_(defmethod parameterize :mysql-fill [_ value pname] "?")