[Tcl-Threads] Getting error while sharing a channel with the other thread

[Oğuz İ. U. <ogu...@gm...>]

Here is my code:

package require Thread

proc Serve {Channel args} {
set Thread [thread::create]
thread::transfer $Thread $Channel
thread::send $Thread {
proc SayYes {Channel} {
while {true} {
puts $Channel yes
}
}
}
thread::send -async $Thread SayYes\ $Channel
}

socket -server Serve 8080

vwait Forever

When I do `nc localhost 8080` while this is running, it ends up showing
this error message;
channel is shared
    while executing
"thread::transfer $Thread $Channel"
    (procedure "Serve" line 3)
    invoked from within
"Serve sockb865ea58 127.0.0.1 55037"

and closing the connection. When I omit transferring `Channel`, I get this;
or from thread tid0xb6b08930
can not find channel named "sockb8aaea58"
    while executing
"puts $Channel yes"
    (procedure "SayYes" line 3)
    invoked from within
"SayYes sockb8aaea58"

What should I do ? Please help.