diff options
| -rw-r--r-- | web/socket/client.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/web/socket/client.scm b/web/socket/client.scm index 48c2725..f7a44d0 100644 --- a/web/socket/client.scm +++ b/web/socket/client.scm @@ -186,7 +186,8 @@ resource described by URI-OR-STRING." (loop))))) (close-port socket) (close-port (websocket-entropy-port ws)) - (set-websocket-state! ws 'closed))) + (set-websocket-state! ws 'closed) + *unspecified*)) (define (generate-masking-key ws) "Create a new masking key using the entropy source of WS." |