diff --git a/common/uxbox/common/spec.cljc b/common/uxbox/common/spec.cljc
index 10ed85db7..7a04cd07a 100644
--- a/common/uxbox/common/spec.cljc
+++ b/common/uxbox/common/spec.cljc
@@ -126,9 +126,10 @@
   [spec data]
   (let [result (s/conform spec data)]
     (when (= result ::s/invalid)
-      (throw (ex/error :type :validation
-                       :code :spec-validation
-                       :explain (with-out-str
-                                  (expound/printer data))
-                       :data (::s/problems data))))
+      (let [edata (s/explain-data spec data)]
+        (throw (ex/error :type :validation
+                         :code :spec-validation
+                         :explain (with-out-str
+                                    (expound/printer edata))
+                         :data (::s/problems edata)))))
     result))