   {:configured? true, :force-eol-blanks? false, :test-for-eol-blanks? true})
 
 (defexpect zprint-tests
+
+  ;;
+  ;; Trim exceptions
+  ;;
+
+  (defn clean-exception
+    "Clean out specific information from end of exceptions."
+    [s]
+    (clojure.string/replace s #"because:.*" "because:"))
 
   ;;
   ;; # Pretty Tests


  #?(:clj
       (expect
         "java.lang.Exception: When :vector called an option-fn-first named 'test' with ':a' failed because: java.lang.ClassCastException: clojure.lang.Keyword cannot be cast to java.lang.Number"
         (try (zprint "[:a :b :c]"
                      {:parse-string? true,
                       :vector {:option-fn-first
                                  (fn ([] "test") ([options sexpr] (+ :a 0)))}})
              (catch Exception e (str e))))
     :cljs
       (expect
         "Error: When :vector called an option-fn-first named 'test' with ':a' failed because: Error: 0 is not ISeqable"


  #?(:clj
       (expect
         "java.lang.Exception:  When :list called an option-fn it failed because:" 
         (try (zprint "(a b c)"
                      {:parse-string? true,
                       :list {:option-fn (fn ([options len sexpr] (+ :a 0)))}})
              (catch Exception e (clean-exception (str e)))))
     :cljs
       (expect
         "Error:  When :list called an option-fn it failed because: Error: 0 is not ISeqable"
