Fix a bug in r.m.stacktrace that coused it to omit the stack elements…

… in the response.

@@ -22,18 +22,19 @@
       [:td.method (h (java-method-str elem))]]))
 
 (defn- html-ex-view [e]
-  (html
-    (doctype :xhtml-transitional)
-    [:html {:xmlns "http://www.w3.org/1999/xhtml"}
-      [:head
-        [:meta {:http-equiv "Content-Type" :content "text/html;charset=utf-8"}]
-        [:title "Ring: Stacktrace"]
-        [:style {:type "text/css"} css]
-        [:body
-          [:div#content
-            [:h3.info (h (str e))]
-            [:table.trace [:tbody
-              (map elem-partial (:trace-elems e))]]]]]]))
+  (let [e-parsed (parse-exception e)]
+    (html
+      (doctype :xhtml-transitional)
+      [:html {:xmlns "http://www.w3.org/1999/xhtml"}
+        [:head
+          [:meta {:http-equiv "Content-Type" :content "text/html;charset=utf-8"}]
+          [:title "Ring: Stacktrace"]
+          [:style {:type "text/css"} css]
+          [:body
+            [:div#content
+              [:h3.info (h (str e))]
+              [:table.trace [:tbody
+                (map elem-partial (:trace-elems e-parsed))]]]]]])))
 
 (defn- html-ex-response [e]
   (-> (response (html-ex-view e))