next-cmd should only be called by get-document at the end of 20 status

client.rkt

@@ -166,7 +166,8 @@
          'get-document
          (string-append "unsupported scheme: ~a~n"
                         "  url: ~a~n")
-         (url-scheme destination) destination))
+         (url-scheme destination)
+         (url->string destination)))
 
       (define-values (status meta body-port)
         (net:request destination))
@@ -222,7 +223,8 @@
          ;; If the document failed to be fetched (parser error,
          ;; unsupported mime, so on and so forth) this would not
          ;; ever be reached.
-         (set! history (cons destination history))]
+         (set! history (cons destination history))
+         (next-cmd)]
 
         ;;
         ;; 30-39 REDIRECT
@@ -274,6 +276,4 @@
           'get-document
           (string-append "resource requires a client certificate, "
                          "which this client does not yet support~a~n"
-                         "  url: ~a~n"))])
+                         "  url: ~a~n"))]))))
-
-      (next-cmd))))