diff --git a/src/common/datomish/schema.cljc b/src/common/datomish/schema.cljc
index 1ae3967e..8194ed72 100644
--- a/src/common/datomish/schema.cljc
+++ b/src/common/datomish/schema.cljc
@@ -178,7 +178,7 @@
       (raise "Unknown attribute " attr ", expected one of " (sorted-set (keys schema))
              {:error :schema/valueType, :attribute attr}))))
 
-(defn- validate-schema [schema]
+(defn validate-schema [schema]
   (doseq [[a kv] schema]
     (when-not (:db/valueType kv)
       (throw (ex-info (str "Bad attribute specification for " a ": should have {:db/valueType ...}")