Tcl Library Source Code

The change was intentional, in the sense of making server and client notifications more consistent, but unintentional with regards to breaking the API.  The incompatibility can be easily fixed with the following patch.  The documentation should be changed marking the event as deprecated.

diff --git c/websocket.tcl i/websocket.tcl
index a35f1b1..ef8b642 100644
--- c/websocket.tcl
+++ i/websocket.tcl
@@ -1147,6 +1147,9 @@ proc ::websocket::takeover { sock handler { server 0 } { info {} }} {
     Liveness $sock
 
     # Tell the WebSocket handler that the connection is now open.
+    if {!$server} {
+	Push $sock request $info;
+    }
     Push $sock connect $info;
     
     ${log}::debug "$sock has been registered as a\