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


HTTP/1.1 101 Switching Protocols
Content-Type: text/html
Server: Spiffy/5.4 (Running on Chicken 4.9.1)
Upgrade: WebSocket
Connection: Upgrade
Sec-Websocket-Accept: "L3Sqgm3G+I8Gn9Wommiibzx6Upe="
Content-Length: 0
Date: Tue, 24 Jun 2014 19:09:54 GMT