From c9da1961f9dd597ca7d23f512430c97e04585c70 Mon Sep 17 00:00:00 2001
From: Jean-Claude Wippler <jcw@equi4.com>
Date: Sun, 9 Feb 2003 17:22:43 +0000
Subject: [PATCH] fix vfs::zstream fwd seeking

---
 ChangeLog          | 5 +++++
 library/vfslib.tcl | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 762e3c5..dd2558d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-01  Jean-Claude Wippler  <jcw@equi4.com>
+
+	* library/vfslib.tcl: fixed bug in new vfs::zstream code,
+	preventing forward seeking from working properly
+
 2003-02-08  Vince Darley <vincentdarley@sourceforge.net>
 
 	* library/*.tcl: made all 'matchindirectory' implementations
diff --git a/library/vfslib.tcl b/library/vfslib.tcl
index 5755729..a01309b 100644
--- a/library/vfslib.tcl
+++ b/library/vfslib.tcl
@@ -103,7 +103,9 @@ namespace eval ::vfs {
 		    while {$pos < $a1} {
 		      set n [expr {$a1 - $pos}]
 		      if {$n > 4096} { set n 4096 }
-		      read $fd $n
+		      # 2003-02-09: read did not work (?), spell it out instead
+		      #read $fd $n
+		      zstream_handler $zcmd $ifd $clen $ilen $imode read $fd $n
 		    }
 		    return $pos
 		}
-- 
2.23.0