--- a/ZipArchive.st	Mon Oct 26 15:55:42 2009 +0100
+++ b/ZipArchive.st	Mon Oct 26 16:22:23 2009 +0100
@@ -3150,6 +3150,12 @@
     ^ members
 !
 
+membersMatching:aFileMatchPattern
+    "return a collection of members which match aFileMatchPattern"
+
+    ^ self members select:[:m | aFileMatchPattern match:m fileName]
+!
+
 name
     "return the (file-)name of this zipArchive"
 
@@ -4937,11 +4943,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.79 2009-10-26 14:55:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.80 2009-10-26 15:22:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.79 2009-10-26 14:55:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.80 2009-10-26 15:22:23 cg Exp $'
 ! !
 
 ZipArchive initialize!