diff --git a/src/net/cgrand/xforms.clj b/src/net/cgrand/xforms.clj
index a4c9335..db3e125 100644
--- a/src/net/cgrand/xforms.clj
+++ b/src/net/cgrand/xforms.clj
@@ -54,7 +54,7 @@
         (if-some [f (some-kvrf f)]
           (kvrf
             ([] (rf))
-            ([acc] (rf (rf acc (f (unreduced @vacc)))))
+            ([acc] (rf (unreduced (rf acc (f (unreduced @vacc))))))
             ([acc x]
               (if (reduced? (vswap! vacc f x))
                 (reduced acc)
@@ -65,7 +65,7 @@
                 acc)))
           (fn
             ([] (rf))
-            ([acc] (rf (rf acc (f (unreduced @vacc)))))
+            ([acc] (rf (unreduced (rf acc (f (unreduced @vacc))))))
             ([acc x]
               (if (reduced? (vswap! vacc f x))
                 (reduced acc)