2 400   3 + # tcl tests
 1 401   3 | 
 0 401   3 | #simple example
 1 401   3 | 
 2 400   2 + proc Echo_Server {port} {
 0 401   2 |     set s [socket -server EchoAccept $port]
 0 401   2 |     vwait forever;
 0 401   0 | }
 1 400   0   
 2 400   3 + # Bug #1947
 1 401   3 | 
 0 400   0   $s($i,"n")
 0 400   0   set n $showArray($i,"neighbor")
 1 400   0