Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.361
diff -u -r1.361 ChangeLog
--- ChangeLog	2001/01/04 21:30:49	1.361
+++ ChangeLog	2001/01/10 15:35:32
@@ -1,3 +1,12 @@
+2001-01-10  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
+
+	* tests/winPipe.test (winpipe-1.20): 
+	* tests/winDde.test (createChildProcess): 
+	* tests/pkgMkIndex.test (pkgtest::createIndex):  Removed
+	assumption that paths contain no spaces which causes problems with
+	both [eval] and [open |...] due to the well-known differences
+	between lists and strings.  Fixes bug #119406
+
 2001-01-04  Don Porter  <dgp@users.sourceforge.net>
 	* tests/unixInit.test:
 	* unix/tclUnixInit.c (TclpInitLibraryPath):
Index: tests/pkgMkIndex.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/pkgMkIndex.test,v
retrieving revision 1.17
diff -u -r1.17 pkgMkIndex.test
--- tests/pkgMkIndex.test	2000/07/19 21:40:57	1.17
+++ tests/pkgMkIndex.test	2001/01/10 15:35:33
@@ -165,7 +165,7 @@
  
     if {[catch {
 	file delete [file join $dirPath pkgIndex.tcl]
-	eval pkg_mkIndex $options $dirPath $patternList
+	eval pkg_mkIndex $options [list $dirPath] $patternList
     } err]} {
 	return [list 1 $err]
     }
Index: tests/winDde.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/winDde.test,v
retrieving revision 1.8
diff -u -r1.8 winDde.test
--- tests/winDde.test	2000/04/10 17:19:06	1.8
+++ tests/winDde.test	2001/01/10 15:35:33
@@ -56,7 +56,7 @@
     }
     close $f
     
-    set f [open "|$tcltest::tcltest $::scriptName" r]
+    set f [open |[list $tcltest::tcltest $::scriptName] r]
     gets $f
     return $f
 }
Index: tests/winPipe.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/winPipe.test,v
retrieving revision 1.12
diff -u -r1.12 winPipe.test
--- tests/winPipe.test	2000/04/10 17:19:06	1.12
+++ tests/winPipe.test	2001/01/10 15:35:33
@@ -156,7 +156,7 @@
 } {little stderr32}
 test winpipe-1.20 {32 bit comprehensive tests: write to application} \
 	{pcOnly stdio cat32} {
-    set f [open "|$cat32 > stdout" w]
+    set f [open |[list $cat32 >stdout] w]
     puts -nonewline $f "foo"
     catch {close $f} msg
     list [contents stdout] $msg
