--- io.test.orig	Mon Feb 24 15:20:00 2003
+++ io.test	Mon Feb 24 15:47:03 2003
@@ -53,7 +53,7 @@
 set path(cat) [makeFile {
     set f stdin
     if {$argv != ""} {
-	set f [open $argv]
+	set f [open [lindex $argv 0]]
     }
     fconfigure $f -encoding binary -translation lf -blocking 0 -eofchar \x1a
     fconfigure stdout -encoding binary -translation lf -buffering none
@@ -2628,15 +2628,15 @@
     catch {removeFile pipe}
     catch {removeFile output}
     set f [open $path(pipe) w]
-    puts $f [format {set f [open "%s" w]} $path(output)]
+    puts $f [format {set f [open {%s} w]} $path(output)]
     puts $f {fconfigure $f -translation lf}
     set x [list while {![eof stdin]}]
-    set x "$x {"
+    set x "$x \{"
     puts $f $x
     puts $f {  after 20}
     puts $f {  puts -nonewline $f [read stdin 1024]}
     puts $f {  flush $f}
-    puts $f "}"
+    puts $f "\}"
     puts $f {close $f}
     close $f
     set x 01234567890123456789012345678901
@@ -5748,7 +5748,7 @@
     }
     close $f
     set f [open "|[list [interpreter]]" r+]
-    fileevent $f readable [namespace code [list consume $f]]
+    fileevent  $f readable [namespace code [list consume $f]]
     fconfigure $f -buffering line
     fconfigure $f -blocking off
     proc consume {f} {
@@ -5765,8 +5765,8 @@
     }
     set l ""
     variable x not_done
-    puts $f [format {source %s}         $path(my_script)]
-    puts $f [format {set f [open %s r]} $path(bar)]
+    puts $f [format {source {%s}}         $path(my_script)]
+    puts $f [format {set f [open {%s} r]} $path(bar)]
     puts $f {copy_slowly $f}
     puts $f {exit}
     vwait [namespace which -variable x]
