--- a/FileDirectory.st	Fri Sep 07 13:46:06 2012 +0100
+++ b/FileDirectory.st	Fri Sep 07 17:24:32 2012 +0100
@@ -295,21 +295,6 @@
     ^ self files
 !
 
-fileNamesMatching:pattern
-    "Same as directoryContants, but returns only files
-     that match the given pattern. 
-     This uses String>>matches: for glob pattern matching"
-
-    | names |
-
-    names := self asFilename directoryContents.
-    names isNil ifTrue:[^ nil].
-    ^ names select: [:e | e matches: pattern].
-
-    "Created: / 12-09-2010 / 18:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (format): / 18-11-2011 / 14:45:42 / cg"
-!
-
 forceNewFileNamed:fn
     "Squeak/ST80 compatibility"
 
@@ -598,7 +583,7 @@
     aStream close
 ! !
 
-!FileDirectory methodsFor:'more instance creation'!
+!FileDirectory methodsFor:'instance creation'!
 
 directoryNamed:aName
     "create & return a new fileDirectory for a subdirectory in myself"
@@ -832,19 +817,15 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.52 2011/11/24 17:29:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.53 2012/08/31 17:57:10 cg Exp $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.52 2011/11/24 17:29:22 cg Exp '
+    ^ '§Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.53 2012/08/31 17:57:10 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: FileDirectory.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Id: FileDirectory.st 10844 2012-09-07 16:24:32Z vranyj1 $'
 ! !
 
 FileDirectory initialize!
-
-
-
-