Index: tests/winPipe.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/winPipe.test,v
retrieving revision 1.15
diff -u -r1.15 winPipe.test
--- tests/winPipe.test	19 Sep 2001 21:56:58 -0000	1.15
+++ tests/winPipe.test	27 Apr 2002 22:39:01 -0000
@@ -106,7 +106,7 @@
 } {little stderr32}
 test winpipe-1.11 {32 bit comprehensive tests: read from application} \
 	{pcOnly stdio cat32} {
-    set f [open "|$cat32 < little" r]
+    set f [open "|[list $cat32] < little" r]
     gets $f line
     catch {close $f} msg
     list $line $msg
@@ -161,7 +161,7 @@
 } {foo stderr32}
 test winpipe-1.21 {32 bit comprehensive tests: read/write application} \
 	{pcOnly stdio cat32} {
-    set f [open "|$cat32" r+]
+    set f [open "|[list $cat32]" r+]
     puts $f $big
     puts $f \032
     flush $f
@@ -187,7 +187,7 @@
 	}
     }
 
-    set f [open "|$cat32 < big 2> stderr" r]
+    set f [open "|[list $cat32] < big 2> stderr" r]
     fconfigure $f  -buffering none -blocking 0
     fileevent $f readable "readResults $f"
     set x 0
@@ -247,7 +247,7 @@
 
 test winpipe-6.1 {PipeSetupProc & PipeCheckProc: read threads} \
 	{pcOnly stdio cat32} {
-    set f [open "|$cat32" r+]
+    set f [open "|[list $cat32]" r+]
     fconfigure $f -blocking 0
     fileevent $f writable { set x writable }
     set x {}
@@ -267,7 +267,7 @@
 } timeout 1 stderr32}
 test winpipe-6.2 {PipeSetupProc & PipeCheckProc: write threads} \
 	{pcOnly stdio cat32} {
-    set f [open "|$cat32" r+]
+    set f [open "|[list $cat32]" r+]
     fconfigure $f -blocking 0
     fileevent $f writable { set x writable }
     set x {}
