Are you using -myaddr in your call to socket?
Check out this page (replace java with Tcl) and this is the problem I was having:
http://stackoverflow.com/questions/3375435/avoid-windows-firewall-popup-with-sockets-on-localhost
Following the advice of the answer, I popped open tkcon (8.6.0.0 beta-7) and found the following results in accept being properly called:
proc accept {c a p} {puts "accept $c $a $p"}
set server_socket [socket -myaddr 127.0.0.1 -server accept 9900]
set client_socket [socket localhost 9900]
and the following does not:
proc accept {c a p} {puts "accept $c $a $p"}
set server_socket [socket -server accept 9900]
set client_socket [socket localhost 9900]
In 8.5, both versions work. Hope this helps. -crs