Index: tests/ioUtil.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/ioUtil.test,v
retrieving revision 1.8
diff -r1.8 ioUtil.test
285,287c285,287
< 		catch [open testOpenFileChannel1%.fil r]
< 		catch [open testOpenFileChannel2%.fil r]
< 		catch [open testOpenFileChannel3%.fil r]
---
> 		catch {close [open testOpenFileChannel1%.fil r]}
> 		catch {close [open testOpenFileChannel2%.fil r]}
> 		catch {close [open testOpenFileChannel3%.fil r]}