--- a/ZipArchive.st	Mon Oct 26 15:36:00 2009 +0100
+++ b/ZipArchive.st	Mon Oct 26 15:55:42 2009 +0100
@@ -2926,7 +2926,7 @@
 readingFrom:aPositionableStream
     "open an existing Zip archive - read data from aPositionableStream"
 
-    ^ self new readingFrom:aPositionableStream.    
+    ^ self new readFrom:aPositionableStream.    
 !
 
 writingTo:aPositionableStream
@@ -3215,7 +3215,7 @@
     ].
 !
 
-readingFrom:aPositionableStream
+readFrom:aPositionableStream
     "initialize the archive to read from aPositionableStream"
 
     file notNil ifTrue: [
@@ -3233,6 +3233,13 @@
     self readDirectory.
 !
 
+readingFrom:aPositionableStream
+    "initialize the archive to read from aPositionableStream"
+
+    "/ renamed to readFrom: for squeak compat.
+    ^ self readFrom:aPositionableStream
+!
+
 writingTo:aPositionableStream
     "initialize the archive to read from aPositionableStream"
 
@@ -4930,11 +4937,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.78 2009-10-26 14:36:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.79 2009-10-26 14:55:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.78 2009-10-26 14:36:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.79 2009-10-26 14:55:42 cg Exp $'
 ! !
 
 ZipArchive initialize!