diff --git a/backend/src/app/loggers/database.clj b/backend/src/app/loggers/database.clj
index 8319e7566..77694da27 100644
--- a/backend/src/app/loggers/database.clj
+++ b/backend/src/app/loggers/database.clj
@@ -71,7 +71,7 @@
        (when-let [data (some-> data (dissoc ::s/problems ::s/value ::s/spec ::sm/explain :hint))]
          {:data (pp/pprint-str data :width 200)})
 
-       (when-let [explain (ex/explain data {:level 10 :length 50})]
+       (when-let [explain (ex/explain data {:level 8 :length 20})]
          {:explain explain})))))
 
 (defn error-record?
diff --git a/common/src/app/common/exceptions.cljc b/common/src/app/common/exceptions.cljc
index fa3b932fb..b68a77d1a 100644
--- a/common/src/app/common/exceptions.cljc
+++ b/common/src/app/common/exceptions.cljc
@@ -93,7 +93,7 @@
                             explain? true
                             chain? true
                             data-length 10
-                            data-level 5}}]
+                            data-level 4}}]
 
   (letfn [(print-trace-element [^StackTraceElement e]
             (let [class (.getClassName e)
@@ -127,7 +127,7 @@
                     (-> (ex-message cause)
                         (str/lines)
                         (first)
-                        (str/prune 100)))
+                        (str/prune 130)))
 
             (when-let [^StackTraceElement e (first (.getStackTrace ^Throwable cause))]
               (printf " (%s:%d)" (or (.getFileName e) "") (.getLineNumber e)))