 
 (defn build-report
   "Builds an HTML exception report (as a string)."
-  [twixt exception]
+  [twixt request exception]
   (html5
     [:head
      [:title "Exception"]

      (catch Throwable t
        ;; TODO: logging!
        (->          
          (build-report twixt t)
          #_ (spy "report")
          response
          (content-type "text/html")

         (apply concat           
                (for [k (-> properties keys sort)]
                  [[:dt (-> k name h)] [:dd (-> (get properties k) to-markup)]]))
         ])]
     (when-not (empty? stack-trace)
       [:table.table.table-hover.table-condensed.table-striped.table-bordered
        (map stack-trace-element->row-markup stack-trace)])
     
     ]))

(defn- match-keys 
