--- pid.test.orig	Mon Feb 24 14:57:10 2003
+++ pid.test	Mon Feb 24 14:57:24 2003
@@ -33,7 +33,7 @@
     regexp {(^[0-9]+$)|(^0x[0-9a-fA-F]+$)} [pid]
 } 1
 test pid-1.2 {pid command} {unixOrPc unixExecs} {
-    set f [open [format {| echo foo | cat >%s} $path(test1)] w]
+    set f [open [format {| echo foo | cat {>%s}} $path(test1)] w]
     set pids [pid $f]
     close $f
     catch {removeFile test1}
