--- a/ZipArchive.st	Thu Feb 20 16:04:48 2003 +0100
+++ b/ZipArchive.st	Mon Feb 24 18:11:31 2003 +0100
@@ -1228,7 +1228,7 @@
     zmemb isNil ifTrue:[^ nil].
 
     self openFile.
-    file position:(zmemb fileStart + 1).
+    file position:(zmemb fileStart + (PositionableStream zeroPosition)).
     rawContents := file nextBytes:(zmemb compressed_size).
     self closeFile.
 
@@ -1476,13 +1476,13 @@
     ].
 
     foundPK := false.
-    file position:(pos0 := size - ECREC_SIZE - 4 + 1).
+    file position:(pos0 := size - ECREC_SIZE - 4 + (PositionableStream zeroPosition)).
     ((file next ~~ ($P asciiValue))
     or:[file next ~~ ($K asciiValue)
     or:[file next ~~ 8r005
     or:[file next ~~ 8r006]]]) ifTrue:[
         "/ search for PK ...
-        file position:1. "/(pos0 - 100).
+        file reset. "/(pos0 - 100).
         [file atEnd not and:[foundPK not]] whileTrue:[
             (file next == ($P asciiValue)
             and:[file next == ($K asciiValue)
@@ -1739,7 +1739,7 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.36 2002-12-09 18:26:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.37 2003-02-24 17:11:31 cg Exp $'
 ! !
 
 ZipArchive initialize!