tls problem

CODE:

package require tls

proc connected {sock args} {
    puts stderr "Connected: $args"
    while 1 {[puts stderr [gets $sock]]}
}
proc progress {args} {
    puts stderr "Progress: $args"
}

tls::socket -server ::connected -command ::progress -ssl3 1 -ssl2 0 -tls1 1 8090

set var 0
vwait var

OUTPUT:
Connected: 127.0.0.1 45836
Progress: info sock6 handshake start {before/accept initialization}
Progress: info sock6 accept loop {before/accept initialization}
Progress: info sock6 accept exit {SSLv3 read client hello B}
Progress: error sock6 {wrong version number}
error reading "sock6": software caused connection abort
    while executing
"gets $sock"
    (procedure "::connected" line 3)
    invoked from within
"::connected sock6 127.0.0.1 45836"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 $callback"
    (procedure "tls::_accept" line 8)
    invoked from within
"tls::_accept {-server 1 -command ::progress -ssl3 1 -ssl2 0 -tls1 1} ::connected sock6 127.0.0.1 45836"