Updated documentation for commit 54ee3b6fc9d625bb476f38b096f80b791cfa9b65

4 files changed, 109 insertions, 24 deletions

diff --git a/api-index.html b/api-index.html
index 75f8aff8..05f3a94a 100644
--- a/api-index.html
+++ b/api-index.html
@@ -158,6 +158,7 @@ Shortcuts:<br />
 </span></span><span id="section-content"> <a href="classpath-api.html#classpath">classpath</a><span id="line-content">                    function      classpath          Returns a sequence of File objects of the elements...
 </span></span><span id="section-content"> <a href="classpath-api.html#classpath-directories">classpath-directories</a><span id="line-content">        function      classpath          Returns a sequence of File objects for the directo...
 </span></span><span id="section-content"> <a href="classpath-api.html#classpath-jarfiles">classpath-jarfiles</a><span id="line-content">           function      classpath          Returns a sequence of JarFile objects for the JAR ...
+</span></span><span id="section-content"> <a href="http.agent-api.html#client-error?">client-error?</a><span id="line-content">                function      http.agent         Returns true if the HTTP response code was in the ...
 </span></span><span id="section-content"> <a href="find-namespaces-api.html#clojure-source-file?">clojure-source-file?</a><span id="line-content">         function      find-namespaces    Returns true if file is a normal file with a .clj ...
 </span></span><span id="section-content"> <a href="find-namespaces-api.html#clojure-sources-in-jar">clojure-sources-in-jar</a><span id="line-content">       function      find-namespaces    Returns a sequence of filenames ending in .clj fou...
 </span></span><span id="section-content"> <a href="str-utils2-api.html#codepoints">codepoints</a><span id="line-content">                   function      str-utils2         Returns a sequence of integer Unicode code points ...
@@ -259,6 +260,7 @@ Shortcuts:<br />
 </span></span><span id="section-content"> <a href="logging-api.html#enabled?">enabled?</a><span id="line-content">                     macro         logging            Returns true if the specific logging level is enab...
 </span></span><span id="section-content"> <a href="error-kit-api.html#error">error</a><span id="line-content">                        function      error-kit          Base type for all error-kit errors.
 </span></span><span id="section-content"> <a href="logging-api.html#error">error</a><span id="line-content">                        macro         logging            Logs a message at the error level..
+</span></span><span id="section-content"> <a href="http.agent-api.html#error?">error?</a><span id="line-content">                       function      http.agent         Returns true if the HTTP response code was in the ...
 </span></span><span id="section-content"> <a href="str-utils2-api.html#escape">escape</a><span id="line-content">                       function      str-utils2         Escapes characters in string according to a cmap, ...
 </span></span><span id="section-content"> <a href="dataflow-api.html#eval-cell">eval-cell</a><span id="line-content">                    multimethod   dataflow           Evaluate a dataflow cell.  Return [changed, old va...
 </span></span><span id="section-content"> <a href="math-api.html#exact-integer-sqrt">exact-integer-sqrt</a><span id="line-content">           function      math               (exact-integer-sqrt n) expects a non-negative inte...
@@ -542,6 +544,7 @@ Shortcuts:<br />
 </span></span><span id="section-content"> <a href="seq-utils-api.html#rec-cat">rec-cat</a><span id="line-content">                      macro         seq-utils          Similar to lazy-cat but binds the resulting sequen...
 </span></span><span id="section-content"> <a href="seq-utils-api.html#rec-seq">rec-seq</a><span id="line-content">                      macro         seq-utils          Similar to lazy-seq but binds the resulting seq to...
 </span></span><span id="section-content"> <a href="graph-api.html#recursive-component?">recursive-component?</a><span id="line-content">         function      graph              Is the component (recieved from scc) self recursiv...
+</span></span><span id="section-content"> <a href="http.agent-api.html#redirect?">redirect?</a><span id="line-content">                    function      http.agent         Returns true if the HTTP response code was in the ...
 </span></span><span id="section-content"> <a href="seq-utils-api.html#reductions">reductions</a><span id="line-content">                   function      seq-utils          Returns a lazy seq of the intermediate values of t...
 </span></span><span id="section-content"> <a href="probabilities.monte-carlo-api.html#reject">reject</a><span id="line-content">                       function      probabilities.monte-carlo Return the distribution that results from r...
 </span></span><span id="section-content"> <a href="java-utils-api.html#relative-path-string">relative-path-string</a><span id="line-content">         multimethod   java-utils         Interpret a String or java.io.File as a relative p...
@@ -558,7 +561,6 @@ Shortcuts:<br />
 </span></span><span id="section-content"> <a href="http.agent-api.html#response-headers-seq">response-headers-seq</a><span id="line-content">         function      http.agent         Returns the HTTP response headers in order as a se...
 </span></span><span id="section-content"> <a href="http.agent-api.html#response-message">response-message</a><span id="line-content">             function      http.agent         Returns the HTTP response message (e.g. 'Not Found...
 </span></span><span id="section-content"> <a href="http.agent-api.html#response-status">response-status</a><span id="line-content">              function      http.agent         Returns the Integer response status code (e.g. 200...
-</span></span><span id="section-content"> <a href="http.agent-api.html#response-success?">response-success?</a><span id="line-content">            function      http.agent         Returns true if the HTTP response code was in the ...
 </span></span><span id="section-content"> <a href="graph-api.html#reverse-graph">reverse-graph</a><span id="line-content">                function      graph              Given a directed graph, return another directed gr...
 </span></span><span id="section-content"> <a href="zip-filter-api.html#right-locs">right-locs</a><span id="line-content">                   function      zip-filter         Returns a lazy sequence of locations to the right ...
 </span></span><span id="section-content"> <a href="zip-filter-api.html#rightmost?">rightmost?</a><span id="line-content">                   function      zip-filter         Returns true if there are no more nodes to the rig...
@@ -593,6 +595,7 @@ Shortcuts:<br />
 </span></span><span id="section-content"> <a href="core-api.html#seqable?">seqable?</a><span id="line-content">                     function      core               Returns true if (seq x) will succeed, false otherw...
 </span></span><span id="section-content"> <a href="monads-api.html#sequence-m">sequence-m</a><span id="line-content">                   var           monads             Monad describing multi-valued computations, i.e. c...
 </span></span><span id="section-content"> <a href="monads-api.html#sequence-t">sequence-t</a><span id="line-content">                   function      monads             Monad transformer that transforms a monad m into a...
+</span></span><span id="section-content"> <a href="http.agent-api.html#server-error?">server-error?</a><span id="line-content">                function      http.agent         Returns true if the HTTP response code was in the ...
 </span></span><span id="section-content"> <a href="monads-api.html#set-m">set-m</a><span id="line-content">                        var           monads             Monad describing multi-valued computations, like s...
 </span></span><span id="section-content"> <a href="pprint-api.html#set-pprint-dispatch">set-pprint-dispatch</a><span id="line-content">          function      pprint             Set the pretty print dispatch function to a functi...
 </span></span><span id="section-content"> <a href="repl-ln-api.html#set-repl-name">set-repl-name</a><span id="line-content">                function      repl-ln            Sets the repl name format to the string name-fmt. ...
@@ -636,6 +639,7 @@ Shortcuts:<br />
 </span></span><span id="section-content"> <a href="stream-utils-api.html#stream-type">stream-type</a><span id="line-content">                  var           stream-utils       The root type for the stream hierarchy. For each s...
 </span></span><span id="section-content"> <a href="set-api.html#subset?">subset?</a><span id="line-content">                      function      set                Is set1 a subset of set2?.
 </span></span><span id="section-content"> <a href="combinatorics-api.html#subsets">subsets</a><span id="line-content">                      function      combinatorics      All the subsets of items.
+</span></span><span id="section-content"> <a href="http.agent-api.html#success?">success?</a><span id="line-content">                     function      http.agent         Returns true if the HTTP response code was in the ...
 </span></span><span id="section-content"> <a href="profile-api.html#summarize">summarize</a><span id="line-content">                    function      profile            Takes the raw data returned by with-profile-data a...
 </span></span><span id="section-content"> <a href="set-api.html#superset?">superset?</a><span id="line-content">                    function      set                Is set1 a superset of set2?.
 </span></span><span id="section-content"> <a href="macro-utils-api.html#symbol-macrolet">symbol-macrolet</a><span id="line-content">              macro         macro-utils        Define local symbol macros that are used in the ex...
diff --git a/api-index.json b/api-index.json
index f9e0461a..2a18e145 100644
--- a/api-index.json
+++ b/api-index.json
@@ -200,7 +200,7 @@
    "doc":
    "Various functions for finding greatest and least values in a collection"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj",
    "wiki-url":
    "http://richhickey.github.com/clojure-contrib/http.agent-api.html",
    "name":"clojure.contrib.http.agent",
@@ -2259,7 +2259,25 @@
    "doc":"Return the argument for which f yields the smallest value.",
    "name":"least-by"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L58",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L198",
+   "wiki-url":
+   "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/client-error?",
+   "namespace":"clojure.contrib.http.agent",
+   "arglists":[["http-agnt"]],
+   "doc":
+   "Returns true if the HTTP response code was in the 400-499 range.",
+   "name":"client-error?"},
+  {"source-url":
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L208",
+   "wiki-url":
+   "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/error?",
+   "namespace":"clojure.contrib.http.agent",
+   "arglists":[["http-agnt"]],
+   "doc":
+   "Returns true if the HTTP response code was in the 400-499 range OR\nthe 500-599 range.",
+   "name":"error?"},
+  {"source-url":
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L58",
    "wiki-url":
    "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/http-agent",
    "namespace":"clojure.contrib.http.agent",
@@ -2268,7 +2286,16 @@
    "Creates (and immediately returns) an Agent representing an HTTP\nrequest running in a new thread.\n\noptions are key/value pairs:\n\n:method string\n\nThe HTTP method name.  Default is \"GET\".\n\n:headers h\n\nHTTP headers, as a Map or a sequence of pairs like \n([key1,value1], [key2,value2])  Default is nil.\n\n:body b\n\nHTTP request entity body, one of nil, String, byte[], InputStream,\nReader, or File.  Default is nil.\n\n:connect-timeout int\n\nTimeout value, in milliseconds, when opening a connection to the\nURL.  Default is zero, meaning no timeout.\n\n:read-timeout int\n\nTimeout value, in milliseconds, when reading data from the\nconnection.  Default is zero, meaning no timeout.\n\n:follow-redirects boolean\n\nIf true, HTTP 3xx redirects will be followed automatically.  Default\nis true.\n\n:on-success f\n\nFunction to be called when the request succeeds with a 2xx response\ncode.  Default is nil, do nothing.  The function will be called with\nthe HTTP agent as its argument.  Any exceptions thrown by this\nfunction will be added to the agent's error queue (see\nagent-errors).\n\n:on-failure f\n\nFunction to be called when the request fails with a 4xx or 5xx\nresponse code.  Default is nil, do nothing.  The function will be\ncalled with the HTTP agent as its argument.  Any exceptions thrown\nby this function will become agent-errors.  Any exceptions thrown by\nthis function will be added to the agent's error queue (see\nagent-errors).\n",
    "name":"http-agent"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L122",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L189",
+   "wiki-url":
+   "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/redirect?",
+   "namespace":"clojure.contrib.http.agent",
+   "arglists":[["http-agnt"]],
+   "doc":
+   "Returns true if the HTTP response code was in the 300-399 range.\n\nNote: if the :follow-redirects option was true (the default),\nredirects will be followed automatically and a the agent will never\nreturn a 3xx response code.",
+   "name":"redirect?"},
+  {"source-url":
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L122",
    "wiki-url":
    "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/response-body-bytes",
    "namespace":"clojure.contrib.http.agent",
@@ -2277,7 +2304,7 @@
    "Returns a Java byte array of the content returned by the server.",
    "name":"response-body-bytes"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L128",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L128",
    "wiki-url":
    "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/response-body-str",
    "namespace":"clojure.contrib.http.agent",
@@ -2286,7 +2313,7 @@
    "Returns the HTTP response body as a string, using the given\nencoding.\n\nIf no encoding is given, uses the encoding specified in the server\nheaders, or clojure.contrib.duck-streams/*default-encoding* if it is\nnot specified.",
    "name":"response-body-str"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L158",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L158",
    "wiki-url":
    "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/response-headers",
    "namespace":"clojure.contrib.http.agent",
@@ -2295,7 +2322,7 @@
    "Returns a String=>String map of HTTP response headers.  Header\nnames are converted to all lower-case.  If a header appears more\nthan once, only the last value is returned.",
    "name":"response-headers"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L167",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L167",
    "wiki-url":
    "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/response-headers-seq",
    "namespace":"clojure.contrib.http.agent",
@@ -2304,7 +2331,7 @@
    "Returns the HTTP response headers in order as a sequence of\n[String,String] pairs.  The first 'header' name may be null for the\nHTTP status line.",
    "name":"response-headers-seq"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L152",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L152",
    "wiki-url":
    "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/response-message",
    "namespace":"clojure.contrib.http.agent",
@@ -2313,7 +2340,7 @@
    "Returns the HTTP response message (e.g. 'Not Found'), for this request.",
    "name":"response-message"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L146",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L146",
    "wiki-url":
    "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/response-status",
    "namespace":"clojure.contrib.http.agent",
@@ -2322,14 +2349,23 @@
    "Returns the Integer response status code (e.g. 200, 404) for this request.",
    "name":"response-status"},
   {"source-url":
-   "http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L180",
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L203",
+   "wiki-url":
+   "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/server-error?",
+   "namespace":"clojure.contrib.http.agent",
+   "arglists":[["http-agnt"]],
+   "doc":
+   "Returns true if the HTTP response code was in the 500-599 range.",
+   "name":"server-error?"},
+  {"source-url":
+   "http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L184",
    "wiki-url":
-   "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/response-success?",
+   "http://richhickey.github.com/clojure-contrib//http.agent-api.html#http.agent/success?",
    "namespace":"clojure.contrib.http.agent",
    "arglists":[["http-agnt"]],
    "doc":
    "Returns true if the HTTP response code was in the 200-299 range.",
-   "name":"response-success?"},
+   "name":"success?"},
   {"source-url":
    "http://github.com/richhickey/clojure-contrib/blob/5f3988ffe6eb894448cbdc2bd4ec8b01ba2e10ce/src/clojure/contrib/http/connection.clj#L21",
    "wiki-url":
diff --git a/http.agent-api.html b/http.agent-api.html
index b6538c83..1ed4484b 100644
--- a/http.agent-api.html
+++ b/http.agent-api.html
@@ -55,8 +55,14 @@ namespace.
   <div style="margin-left: 1em;" class="toc-section">
     <a href="#toc0">Overview</a>
     <div style="margin-left: 1em;" class="toc-entry">
+      <a href="#http.agent/client-error?">client-error?</a>
+    </div><div style="margin-left: 1em;" class="toc-entry">
+      <a href="#http.agent/error?">error?</a>
+    </div><div style="margin-left: 1em;" class="toc-entry">
       <a href="#http.agent/http-agent">http-agent</a>
     </div><div style="margin-left: 1em;" class="toc-entry">
+      <a href="#http.agent/redirect?">redirect?</a>
+    </div><div style="margin-left: 1em;" class="toc-entry">
       <a href="#http.agent/response-body-bytes">response-body-bytes</a>
     </div><div style="margin-left: 1em;" class="toc-entry">
       <a href="#http.agent/response-body-str">response-body-str</a>
@@ -69,7 +75,9 @@ namespace.
     </div><div style="margin-left: 1em;" class="toc-entry">
       <a href="#http.agent/response-status">response-status</a>
     </div><div style="margin-left: 1em;" class="toc-entry">
-      <a href="#http.agent/response-success?">response-success?</a>
+      <a href="#http.agent/server-error?">server-error?</a>
+    </div><div style="margin-left: 1em;" class="toc-entry">
+      <a href="#http.agent/success?">success?</a>
     </div>
     <br />
   </div>
@@ -88,6 +96,23 @@ by <span id="author">Unknown</span><br />
 <h2>Public Variables and Functions</h2>
 <div id="var-entry">
   <hr />
+  <h2 id="http.agent/client-error?">client-error?</h2>
+  <span id="var-type">function</span><br />
+  <pre id="var-usage">Usage: (client-error? http-agnt)
+</pre>
+  <pre id="var-docstr">Returns true if the HTTP response code was in the 400-499 range.</pre>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L198" id="var-source">Source</a>
+</div><div id="var-entry">
+  <hr />
+  <h2 id="http.agent/error?">error?</h2>
+  <span id="var-type">function</span><br />
+  <pre id="var-usage">Usage: (error? http-agnt)
+</pre>
+  <pre id="var-docstr">Returns true if the HTTP response code was in the 400-499 range OR
+the 500-599 range.</pre>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L208" id="var-source">Source</a>
+</div><div id="var-entry">
+  <hr />
   <h2 id="http.agent/http-agent">http-agent</h2>
   <span id="var-type">function</span><br />
   <pre id="var-usage">Usage: (http-agent url &amp; options)
@@ -143,7 +168,19 @@ by this function will become agent-errors.  Any exceptions thrown by
 this function will be added to the agent's error queue (see
 agent-errors).
 </pre>
-  <a href="http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L58" id="var-source">Source</a>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L58" id="var-source">Source</a>
+</div><div id="var-entry">
+  <hr />
+  <h2 id="http.agent/redirect?">redirect?</h2>
+  <span id="var-type">function</span><br />
+  <pre id="var-usage">Usage: (redirect? http-agnt)
+</pre>
+  <pre id="var-docstr">Returns true if the HTTP response code was in the 300-399 range.
+
+Note: if the :follow-redirects option was true (the default),
+redirects will be followed automatically and a the agent will never
+return a 3xx response code.</pre>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L189" id="var-source">Source</a>
 </div><div id="var-entry">
   <hr />
   <h2 id="http.agent/response-body-bytes">response-body-bytes</h2>
@@ -151,7 +188,7 @@ agent-errors).
   <pre id="var-usage">Usage: (response-body-bytes a)
 </pre>
   <pre id="var-docstr">Returns a Java byte array of the content returned by the server.</pre>
-  <a href="http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L122" id="var-source">Source</a>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L122" id="var-source">Source</a>
 </div><div id="var-entry">
   <hr />
   <h2 id="http.agent/response-body-str">response-body-str</h2>
@@ -165,7 +202,7 @@ encoding.
 If no encoding is given, uses the encoding specified in the server
 headers, or clojure.contrib.duck-streams/*default-encoding* if it is
 not specified.</pre>
-  <a href="http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L128" id="var-source">Source</a>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L128" id="var-source">Source</a>
 </div><div id="var-entry">
   <hr />
   <h2 id="http.agent/response-headers">response-headers</h2>
@@ -175,7 +212,7 @@ not specified.</pre>
   <pre id="var-docstr">Returns a String=&gt;String map of HTTP response headers.  Header
 names are converted to all lower-case.  If a header appears more
 than once, only the last value is returned.</pre>
-  <a href="http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L158" id="var-source">Source</a>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L158" id="var-source">Source</a>
 </div><div id="var-entry">
   <hr />
   <h2 id="http.agent/response-headers-seq">response-headers-seq</h2>
@@ -185,7 +222,7 @@ than once, only the last value is returned.</pre>
   <pre id="var-docstr">Returns the HTTP response headers in order as a sequence of
 [String,String] pairs.  The first 'header' name may be null for the
 HTTP status line.</pre>
-  <a href="http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L167" id="var-source">Source</a>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L167" id="var-source">Source</a>
 </div><div id="var-entry">
   <hr />
   <h2 id="http.agent/response-message">response-message</h2>
@@ -193,7 +230,7 @@ HTTP status line.</pre>
   <pre id="var-usage">Usage: (response-message a)
 </pre>
   <pre id="var-docstr">Returns the HTTP response message (e.g. 'Not Found'), for this request.</pre>
-  <a href="http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L152" id="var-source">Source</a>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L152" id="var-source">Source</a>
 </div><div id="var-entry">
   <hr />
   <h2 id="http.agent/response-status">response-status</h2>
@@ -201,15 +238,23 @@ HTTP status line.</pre>
   <pre id="var-usage">Usage: (response-status a)
 </pre>
   <pre id="var-docstr">Returns the Integer response status code (e.g. 200, 404) for this request.</pre>
-  <a href="http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L146" id="var-source">Source</a>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L146" id="var-source">Source</a>
+</div><div id="var-entry">
+  <hr />
+  <h2 id="http.agent/server-error?">server-error?</h2>
+  <span id="var-type">function</span><br />
+  <pre id="var-usage">Usage: (server-error? http-agnt)
+</pre>
+  <pre id="var-docstr">Returns true if the HTTP response code was in the 500-599 range.</pre>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L203" id="var-source">Source</a>
 </div><div id="var-entry">
   <hr />
-  <h2 id="http.agent/response-success?">response-success?</h2>
+  <h2 id="http.agent/success?">success?</h2>
   <span id="var-type">function</span><br />
-  <pre id="var-usage">Usage: (response-success? http-agnt)
+  <pre id="var-usage">Usage: (success? http-agnt)
 </pre>
   <pre id="var-docstr">Returns true if the HTTP response code was in the 200-299 range.</pre>
-  <a href="http://github.com/richhickey/clojure-contrib/blob/3bd1a3506de189040fdbc26be9c4eba308d98a06/src/clojure/contrib/http/agent.clj#L180" id="var-source">Source</a>
+  <a href="http://github.com/richhickey/clojure-contrib/blob/54ee3b6fc9d625bb476f38b096f80b791cfa9b65/src/clojure/contrib/http/agent.clj#L184" id="var-source">Source</a>
 </div>
 
 
diff --git a/index.html b/index.html
index aebc0731..c1a8be9a 100644
--- a/index.html
+++ b/index.html
@@ -895,7 +895,7 @@ defined for any type.</pre>
   <pre id="namespace-docstr">Agent-based asynchronous HTTP client.</pre>
   
   Public variables and functions:
-  <span id="var-link"><a href="http.agent-api.html#http.agent/http-agent" id="var-tag">http-agent</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-body-bytes" id="var-tag">response-body-bytes</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-body-str" id="var-tag">response-body-str</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-headers" id="var-tag">response-headers</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-headers-seq" id="var-tag">response-headers-seq</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-message" id="var-tag">response-message</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-status" id="var-tag">response-status</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-success?" id="var-tag">response-success?</a> </span><br />
+  <span id="var-link"><a href="http.agent-api.html#http.agent/client-error?" id="var-tag">client-error?</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/error?" id="var-tag">error?</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/http-agent" id="var-tag">http-agent</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/redirect?" id="var-tag">redirect?</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-body-bytes" id="var-tag">response-body-bytes</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-body-str" id="var-tag">response-body-str</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-headers" id="var-tag">response-headers</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-headers-seq" id="var-tag">response-headers-seq</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-message" id="var-tag">response-message</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/response-status" id="var-tag">response-status</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/server-error?" id="var-tag">server-error?</a> </span><span id="var-link"><a href="http.agent-api.html#http.agent/success?" id="var-tag">success?</a> </span><br />
   
 </div><div id="namespace-entry">
   <br />