diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt
index 5ece1a3..f0d963f 100644
--- a/racket/syndicate/drivers/web.rkt
+++ b/racket/syndicate/drivers/web.rkt
@@ -15,6 +15,7 @@
          (struct-out web-request-header)
          (struct-out web-request-cookie)
          web-request-header-content-type
+         web-request-header-websocket-upgrade?
 
          (rename-out [web-response-header <web-response-header>])
          (struct-out/defaults [make-web-response-header web-response-header])
@@ -93,6 +94,9 @@
 (define (web-request-header-content-type req)
   (dict-ref (web-request-header-headers req) 'content-type #f))
 
+(define (web-request-header-websocket-upgrade? req)
+  (equal? (string-downcase (dict-ref (web-request-header-headers req) 'upgrade #f)) "websocket"))
+
 (begin-for-declarations
   (define-struct-defaults make-web-response-header web-response-header
     (#:code [web-response-header-code 200]