--- a/ChangeSet.st	Mon Nov 11 13:29:34 2013 +0000
+++ b/ChangeSet.st	Tue Nov 12 21:36:37 2013 +0000
@@ -444,11 +444,23 @@
 !
 
 fromDirectory: aStringOfFilename
+      "Read all .st files (non-recursively) from `aStringOrFilename` Return the resuling ChangeSet"        
+
+    ^ self fromDirectory: aStringOfFilename filter: [:each | each  suffix = 'st' ].
+
+    "Created: / 02-04-2011 / 00:54:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 12-11-2013 / 15:24:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+fromDirectory: aStringOrFilename filter: filter
+    "Read all files (non-recursively) from `aStringOrFilename` for which the
+     filter return true. Return the resuling ChangeSet"
+    
 
     | d cs files step |
-    d := aStringOfFilename asFilename.
+    d := aStringOrFilename asFilename.
     cs := self new.    
-    files := (d directoryContentsAsFilenames) select:[:each | each  suffix = 'st' ].
+    files := (d directoryContentsAsFilenames) select:filter.
     step :=  100 / files size.
     files withIndexDo: [:each :index |
         ProgressNotification notify: 'Reading ', each baseName progress: (step * (index - 1)).
@@ -459,7 +471,7 @@
         ].
     ].
     ProgressNotification notify: nil progress: 100.
-    cs name: aStringOfFilename asFilename asAbsoluteFilename pathName.
+    cs name: aStringOrFilename asFilename asAbsoluteFilename pathName.
     ^cs
 
 
@@ -467,8 +479,7 @@
         ChangeSet fromDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
     "
 
-    "Created: / 02-04-2011 / 00:54:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 11-11-2013 / 13:28:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 12-11-2013 / 15:24:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fromDolphinPACStream:aStream