Update to reflect changes to clj-html.

@@ -1,5 +1,5 @@
 (ns ring.handler.dump
-  (:use (clj-html core utils helpers)
+  (:use (clj-html core helpers)
         (clojure.contrib def)
         (clojure set))
   (:import (org.apache.commons.io IOUtils)))
@@ -29,14 +29,14 @@
         [:h3.info "Ring Request Values"]
         [:table.request
           [:tbody
-            (domap-str [key ring-keys]
+            (for [key ring-keys]
               (req-pair key req))]]
         (if-let [user-keys (difference (set (keys req)) (set ring-keys))]
           (html
              [:br]
              [:table.request.user
                [:tbody [:tr
-                 (domap-str [key (sort user-keys)]
+                 (for [key (sort user-keys)]
                    (req-pair key req))]]]))]]])
 
 (defn handle-dump

@@ -1,5 +1,5 @@
 (ns ring.middleware.stacktrace
-  (:use (clj-html core utils helpers)
+  (:use (clj-html core helpers)
         (clojure.contrib str-utils)
         (clj-stacktrace core repl)))
 
@@ -11,7 +11,7 @@
    :body    (pst-str e)})
 
 (defn- elem-partial [elem]
-  (if-html (:clojure elem)
+  (if (:clojure elem)
     [:tr
       [:td.source (h (source-str         elem))]
       [:td.method (h (clojure-method-str elem))]]
@@ -35,7 +35,7 @@
                [:div#content
                  [:h3.info (h (str e))]
                  [:table.trace [:tbody
-                   (map-str elem-partial (:trace-elems excp))]]]]]])}))
+                   (map elem-partial (:trace-elems excp))]]]]]])}))
 
 (defn- response
   "Returns a response showing debugging information about the exception.