diff --git a/src/malli/core.cljc b/src/malli/core.cljc
index 05f2fc63c..e040a97b5 100644
--- a/src/malli/core.cljc
+++ b/src/malli/core.cljc
@@ -652,8 +652,9 @@
   (fn [{:keys [min max]}]
     (cond
       (not (or min max)) nil
-      (and (and min max) f) (fn [x] (let [size (f x)] (<= min size max)))
-      (and min max) (fn [x] (<= min x max))
+      (and (and min max) f) (fn [x] (let [size (f x)]
+                                      (and (<= min size) (<= size max))))
+      (and min max) (fn [x] (and (<= min x) (<= x max)))
       (and min f) (fn [x] (<= min (f x)))
       min (fn [x] (<= min x))
       (and max f) (fn [x] (<= (f x) max))