diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt
index 03f581e..81b3c65 100644
--- a/racket/syndicate/drivers/web.rkt
+++ b/racket/syndicate/drivers/web.rkt
@@ -13,6 +13,7 @@
          (rename-out [web-response-header <web-response-header>])
          (struct-out/defaults [make-web-response-header web-response-header])
          web-response-header-code-type
+         web-response-successful?
          (struct-out web-response-complete)
          (struct-out web-response-chunked)
          (rename-out [web-response-websocket <web-response-websocket>])
@@ -101,6 +102,9 @@
           [(<= 500 code 599) 'server-error]
           [else 'other]))))
 
+(define (web-response-successful? rh)
+  (eq? (web-response-header-code-type rh) 'successful))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Ground-level communication messages