diff --git a/src/malli/core.cljc b/src/malli/core.cljc
index 05f2fc63c..ba1621dd1 100644
--- a/src/malli/core.cljc
+++ b/src/malli/core.cljc
@@ -1474,11 +1474,11 @@
           (-to-ast [this _] (-to-value-ast this))
           Schema
           (-validator [_]
-            (-safe-pred #(re-find re %)))
+            (-safe-pred #(and (instance? CharSequence %) (re-find re %))))
           (-explainer [this path]
             (fn explain [x in acc]
               (try
-                (if-not (re-find re x)
+                (if-not (and (instance? CharSequence x) (re-find re x))
                   (conj acc (miu/-error path in this x))
                   acc)
                 (catch #?(:clj Exception, :cljs js/Error) e