From 946552f79c4fbd683403f99b51882685772ae1cc Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Sat, 18 Apr 2015 10:44:44 -0700 Subject: [PATCH] Fixing upgrade header check. --- websockets.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/websockets.scm b/websockets.scm index ba629b3..1e676b6 100644 --- a/websockets.scm +++ b/websockets.scm @@ -570,7 +570,7 @@ "ping thread"))) ; make sure the request meets the spec for websockets - (cond ((not (and (eq? (header-value 'connection headers #f) 'upgrade) + (cond ((not (and (member 'upgrade (header-values 'connection headers)) (string-ci= (car (header-value 'upgrade headers '(""))) "websocket"))) (signal (make-websocket-exception (make-property-condition 'missing-upgrade-header))))