diff options
Diffstat (limited to 'tests/tcltests.tcl')
| -rw-r--r-- | tests/tcltests.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/tcltests.tcl b/tests/tcltests.tcl index c3c8650..b0aa054 100644 --- a/tests/tcltests.tcl +++ b/tests/tcltests.tcl @@ -24,7 +24,7 @@ namespace eval ::tcltests { proc tempdir_alternate {} { - file tempfile tempfile + close [file tempfile tempfile] set tmpdir [file dirname $tempfile] set execname [info nameofexecutable] regsub -all {[^[:alpha:][:digit:]]} $execname _ execname |