diff --git a/immer/extra/persist/json/json_with_pool.hpp b/immer/extra/persist/json/json_with_pool.hpp
index 52f425a4..ea9fb401 100644
--- a/immer/extra/persist/json/json_with_pool.hpp
+++ b/immer/extra/persist/json/json_with_pool.hpp
@@ -463,9 +463,27 @@ auto to_json_with_pool(const T& value0)
     return os.str();
 }
 
-template <typename Pools, class ReloadPoolF>
-auto load_pools(std::istream& is, const ReloadPoolF& reload_pool)
+template <class Pools, class Archive = cereal::JSONInputArchive>
+auto load_pools(std::istream& is, const auto& wrap)
 {
+    const auto reload_pool =
+        [wrap](std::istream& is, Pools pools, bool ignore_pool_exceptions) {
+            auto restore                 = immer::util::istream_snapshot{is};
+            const auto original_pools    = pools;
+            pools.ignore_pool_exceptions = ignore_pool_exceptions;
+            auto ar = json_immer_input_archive<Archive, Pools, decltype(wrap)>{
+                std::move(pools), wrap, is};
+            /**
+             * NOTE: Critical to clear the pools before loading into it
+             * again. I hit a bug when pools contained a vector and every
+             * load would append to it, instead of replacing the contents.
+             */
+            pools = {};
+            ar(CEREAL_NVP(pools));
+            pools.merge_previous(original_pools);
+            return pools;
+        };
+
     auto pools = Pools{};
     if constexpr (detail::is_pool_empty<Pools>()) {
         return pools;
@@ -491,29 +509,12 @@ auto load_pools(std::istream& is, const ReloadPoolF& reload_pool)
     return pools;
 }
 
-constexpr auto reload_pool =
-    [](std::istream& is, auto pools, bool ignore_pool_exceptions) {
-        using Pools                  = std::decay_t<decltype(pools)>;
-        auto restore                 = util::istream_snapshot{is};
-        pools.ignore_pool_exceptions = ignore_pool_exceptions;
-        auto ar = json_immer_input_archive<cereal::JSONInputArchive, Pools>{
-            std::move(pools), is};
-        /**
-         * NOTE: Critical to clear the pools before loading into it
-         * again. I hit a bug when pools contained a vector and every
-         * load would append to it, instead of replacing the contents.
-         */
-        pools = {};
-        ar(CEREAL_NVP(pools));
-        return pools;
-    };
-
 template <typename T>
 T from_json_with_pool(std::istream& is)
 {
     using Pools = std::decay_t<decltype(detail::generate_input_pools(
         get_pools_types(std::declval<T>())))>;
-    auto pools  = load_pools<Pools>(is, reload_pool);
+    auto pools  = load_pools<Pools>(is, boost::hana::id);
 
     auto ar =
         immer::persist::json_immer_input_archive<cereal::JSONInputArchive,
diff --git a/immer/extra/persist/json/json_with_pool_auto.hpp b/immer/extra/persist/json/json_with_pool_auto.hpp
index a3cecba4..2974f7d8 100644
--- a/immer/extra/persist/json/json_with_pool_auto.hpp
+++ b/immer/extra/persist/json/json_with_pool_auto.hpp
@@ -200,28 +200,6 @@ auto get_auto_pool(const T& serializable,
     return pools;
 }
 
-constexpr auto reload_pool_auto = [](auto wrap) {
-    return [wrap](std::istream& is, auto pools, bool ignore_pool_exceptions) {
-        using Pools                  = std::decay_t<decltype(pools)>;
-        auto restore                 = immer::util::istream_snapshot{is};
-        const auto original_pools    = pools;
-        pools.ignore_pool_exceptions = ignore_pool_exceptions;
-        auto ar = json_immer_input_archive<cereal::JSONInputArchive,
-                                           Pools,
-                                           decltype(wrap)>{
-            std::move(pools), wrap, is};
-        /**
-         * NOTE: Critical to clear the pools before loading into it
-         * again. I hit a bug when pools contained a vector and every
-         * load would append to it, instead of replacing the contents.
-         */
-        pools = {};
-        ar(CEREAL_NVP(pools));
-        pools.merge_previous(original_pools);
-        return pools;
-    };
-};
-
 template <typename T, class PoolsTypes>
 T from_json_with_auto_pool(std::istream& is, const PoolsTypes& pools_types)
 {
@@ -231,7 +209,7 @@ T from_json_with_auto_pool(std::istream& is, const PoolsTypes& pools_types)
     using Pools =
         std::decay_t<decltype(detail::generate_input_pools(pools_types))>;
 
-    auto pools = load_pools<Pools>(is, reload_pool_auto(wrap));
+    auto pools = load_pools<Pools>(is, wrap);
 
     auto ar =
         json_immer_input_archive<cereal::JSONInputArchive,
diff --git a/test/extra/persist/test_circular_dependency_conversion.cpp b/test/extra/persist/test_circular_dependency_conversion.cpp
index c17f4c30..2e556945 100644
--- a/test/extra/persist/test_circular_dependency_conversion.cpp
+++ b/test/extra/persist/test_circular_dependency_conversion.cpp
@@ -708,36 +708,16 @@ TEST_CASE("Test circular dependency pools", "[conversion]")
                 }
                 return os.str();
             };
-        constexpr auto reload_pool_xml = [](auto wrap) {
-            return [wrap](std::istream& is,
-                          auto pools,
-                          bool ignore_pool_exceptions) {
-                using Pools  = std::decay_t<decltype(pools)>;
-                auto restore = immer::util::istream_snapshot{is};
-                pools.ignore_pool_exceptions = ignore_pool_exceptions;
-                auto ar = immer::persist::json_immer_input_archive<
-                    cereal::XMLInputArchive,
-                    Pools,
-                    decltype(wrap)>{std::move(pools), wrap, is};
-                /**
-                 * NOTE: Critical to clear the pools before loading into it
-                 * again. I hit a bug when pools contained a vector and every
-                 * load would append to it, instead of replacing the contents.
-                 */
-                pools = {};
-                ar(CEREAL_NVP(pools));
-                return pools;
-            };
-        };
-        constexpr auto from_xml = [reload_pool_xml](const std::string& str,
-                                                    auto& value0,
-                                                    const auto& names,
-                                                    const auto& wrap) {
+        constexpr auto from_xml = [](const std::string& str,
+                                     auto& value0,
+                                     const auto& names,
+                                     const auto& wrap) {
             auto is     = std::istringstream{str};
             using Pools = std::decay_t<
                 decltype(immer::persist::detail::generate_input_pools(names))>;
             auto pools =
-                immer::persist::load_pools<Pools>(is, reload_pool_xml(wrap));
+                immer::persist::load_pools<Pools, cereal::XMLInputArchive>(
+                    is, wrap);
 
             auto ar = immer::persist::json_immer_input_archive<
                 cereal::XMLInputArchive,