--- a/ZipArchive.st	Fri Apr 01 16:19:28 2011 +0200
+++ b/ZipArchive.st	Tue Apr 12 17:20:49 2011 +0200
@@ -3611,6 +3611,17 @@
     "Modified: / 18-11-2010 / 20:23:35 / cg"
 !
 
+findMemberForWhich:aBlock
+    "find a zipMember by condition"
+
+    self zipMembersDo:[:zipd |
+        (aBlock value:zipd) ifTrue:[^ zipd].
+    ].
+    ^ nil
+
+    "Created: / 12-04-2011 / 17:20:40 / cg"
+!
+
 readDirectory
     "read the zip directory into a linked-list of zipMembers"
 
@@ -5024,11 +5035,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.92 2011-03-28 17:50:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.93 2011-04-12 15:20:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.92 2011-03-28 17:50:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.93 2011-04-12 15:20:49 cg Exp $'
 ! !
 
 ZipArchive initialize!