? S4-0-2
? library/struct1.0
? library/msgcat1.0
? library/dde1.0
? library/dde1.1
? library/opt0.1
? library/opt0.4
? library/reg1.0
? library/tcltest1.0
? library/http2.0
? library/http2.1
? library/http2.3
? macosx/Tcl.pbproj
Index: tests/socket.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/socket.test,v
retrieving revision 1.22
diff -u -r1.22 socket.test
--- tests/socket.test	27 Feb 2002 20:55:55 -0000	1.22
+++ tests/socket.test	1 Apr 2002 18:47:20 -0000
@@ -252,7 +252,7 @@
     removeFile script
     set f [open script w]
     puts $f {
-	set timer [after 2000 "set x timed_out"]
+	set timer [after 10000 "set x timed_out"]
 	set f [socket -server accept 0]
 	proc accept {file addr port} {
 	    global x
@@ -390,7 +390,7 @@
     removeFile script
     set f [open script w]
     puts $f {
-	set timer [after 2000 "set x done"]
+	set timer [after 10000 "set x timeout"]
         set f [socket -server accept 0]
 	proc accept {file addr port} {
             global x
