diff --git a/src/clj/com/rpl/specter/impl.cljx b/src/clj/com/rpl/specter/impl.cljx
index 5ac024c..6dcaeab 100644
--- a/src/clj/com/rpl/specter/impl.cljx
+++ b/src/clj/com/rpl/specter/impl.cljx
@@ -654,7 +654,9 @@
     ))
 
 (defn do-compiled-traverse [apath structure]
-  (reify clojure.lang.IReduceInit
+  (reify clojure.lang.IReduce
+    (reduce [this afn]
+      (.reduce this afn (afn)))
     (reduce [this afn start]
       (let [cell (mutable-cell start)]
         (compiled-traverse*