1 files changed, 3 insertions, 3 deletions
diff --git a/tests/io.test b/tests/io.test
index 465fc3b..0130dc0 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: io.test,v 1.38 2003/02/04 17:06:52 vincentdarley Exp $
+# RCS: @(#) $Id: io.test,v 1.39 2003/02/09 02:50:25 hobbs Exp $
 
 if {[catch {package require tcltest 2}]} {
     puts stderr "Skipping tests in [info script].  tcltest 2 required."
@@ -2625,8 +2625,8 @@ test io-29.31 {Tcl_WriteChars, background flush} {stdio} {
 } ok
 test io-29.32 {Tcl_WriteChars, background flush to slow reader} \
 	{stdio asyncPipeClose} {
-    removeFile pipe
-    removeFile output
+    catch {removeFile pipe}
+    catch {removeFile output}
     set f [open $path(pipe) w]
     puts $f [format {set f [open "%s" w]} $path(output)]
     puts $f {fconfigure $f -translation lf}