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

client.rkt

@@ -223,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
@@ -275,6 +276,4 @@
           'get-document
           (string-append "resource requires a client certificate, "
                          "which this client does not yet support~a~n"
-                         "  url: ~a~n"))])
-
-      (next-cmd))))
+                         "  url: ~a~n"))]))))