diff --git a/src/spec_tools/core.cljc b/src/spec_tools/core.cljc
index 8e4f338..5ffef1e 100644
--- a/src/spec_tools/core.cljc
+++ b/src/spec_tools/core.cljc
@@ -460,7 +460,7 @@
           spec-reason (:reason this)
           with-reason (fn [problem]
                         (cond-> problem
-                                spec-reason
+                                (and spec-reason (not (:reason problem)))
                                 (assoc :reason spec-reason)))]
       (if problems
         (map with-reason problems))))