File tcl-test-socket-13.1.patch of Package tcl.27752

--- tests/socket.test.orig
+++ tests/socket.test
@@ -1812,6 +1812,7 @@ test socket_$af-13.1 {Testing use of sha
         set i 0
         vwait x
         close $f
+        thread::wait
     }]]
     set port [thread::send $serverthread {set listen}]
     set s [socket $localhost $port]