Oops. copy-paste typo in variable name

diff --git a/library/vfslib.tcl b/library/vfslib.tcl
index 64f293921975f2e0803f367a6e0985c5d82da55e..a29a78d6971a21d698476a0038d09b685296f481 100644 (file)
--- a/library/vfslib.tcl
+++ b/library/vfslib.tcl
@@ -153,7 +153,7 @@ if {[info command rechan] != "" || ![catch {load "" rechan}]} {
         proc vfs::zstream {mode ifd clen ilen} {
             set cname _zstream_[incr ::vfs::zseq]
             zlib s$mode $cname
-            fconfigure $fd -translation binary
+            fconfigure $ifd -translation binary
             set cmd [list ::vfs::zstream_handler $cname $ifd $clen $ilen s$mode]
             set fd [rechan $cmd 2]
             set ::vfs::_zstream_pos($fd) 0