Index: tests/socket.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/socket.test,v
retrieving revision 1.21
diff -u -r1.21 socket.test
--- tests/socket.test	25 Jan 2002 23:06:58 -0000	1.21
+++ tests/socket.test	27 Feb 2002 16:54:55 -0000
@@ -433,7 +433,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 {s a p} {
             fileevent $s readable [list echo $s]
@@ -454,7 +454,7 @@
 	vwait x
 	after cancel $timer
 	close $f
-	puts done
+	puts $x
     }
     close $f
     set f [open "|[list $::tcltest::tcltest script]" r]
