diff --git a/src/quo/components/utilities/token/loader.cljs b/src/quo/components/utilities/token/loader.cljs
index af3274b780..ebdd83bd57 100644
--- a/src/quo/components/utilities/token/loader.cljs
+++ b/src/quo/components/utilities/token/loader.cljs
@@ -3,12 +3,13 @@
   (:require [clojure.string :as string]))
 
 (def ^:private tokens (loader/resolve-tokens))
+(def ^:private safe-lower-case (comp string/lower-case str))
 
 (defn- get-token-image*
   [token]
   (let [token-symbol (cond-> token
                        (keyword? token) name
-                       :always          (comp string/lower-case str))]
+                       :always          safe-lower-case)]
     (get tokens token-symbol)))
 
 (def get-token-image (memoize get-token-image*))