(with-headers
     `((upgrade ("WebSocket" . #f))
       (connection (upgrade))
       (sec-websocket-accept (,ws-handshake)))
     (lambda ()
       (send-response status: 'switching-protocols)))


Server: Spiffy/5.4 (Running on Chicken 4.9.1)
Upgrade: WebSocket
Connection: Upgrade=()
Sec-Websocket-Accept: 8V8X2Mvf4Oegungm6V2Waqitrkq==()
Content-Length: 0
Date: Tue, 24 Jun 2014 18:47:26 GMT