diff options
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r-- | tclcompat.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index e0f4070..3485d00 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -9,7 +9,7 @@ set env [env] # Provide Tcl-compatible I/O commands -if {[info commands stdout] ne ""} { +if {[exists -command stdout]} { # Tcl-compatible I/O commands foreach p {gets flush close eof seek tell} { proc $p {chan args} {p} { |