--- a/MCDirectoryRepository.st	Wed Feb 12 15:53:37 2014 +0100
+++ b/MCDirectoryRepository.st	Wed Feb 12 15:53:38 2014 +0100
@@ -16,10 +16,6 @@
 
 !MCDirectoryRepository class methodsFor:'instance creation'!
 
-description
-	^ 'directory'
-!
-
 directory: aStringOrFileDirectory
 
     ^self new directory: aStringOrFileDirectory
@@ -37,6 +33,14 @@
 
 !MCDirectoryRepository class methodsFor:'as yet unclassified'!
 
+fillInTheBlankRequest
+    "superclass MCRepository class says that I am responsible to implement this method"
+
+    ^ self shouldImplement
+! !
+
+!MCDirectoryRepository class methodsFor:'queries'!
+
 creationTemplate
     "superclass MCRepository class says that I am responsible to implement this method"
 
@@ -49,18 +53,11 @@
     "Modified: / 01-12-2011 / 20:31:31 / cg"
 !
 
-fillInTheBlankRequest
-    "superclass MCRepository class says that I am responsible to implement this method"
-
-    ^ self shouldImplement
+description
+	^ 'directory'
 ! !
 
-
-!MCDirectoryRepository methodsFor:'as yet unclassified'!
-
-allFileNames
-	^ (directory entries sortBy: [:a :b | a modificationTime >= b modificationTime]) collect: [:ea | ea name]
-!
+!MCDirectoryRepository methodsFor:'accessing'!
 
 description
 	^ directory pathName
@@ -77,12 +74,9 @@
         ifFalse:[aStringOrDirectory].
 
     "Modified: / 16-09-2010 / 15:58:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
+! !
 
-initialize
-	super initialize.
-	directory := FileDirectory default
-!
+!MCDirectoryRepository methodsFor:'as yet unclassified'!
 
 isValid
 	^directory exists
@@ -136,16 +130,30 @@
     "Modified: / 01-12-2011 / 21:00:33 / cg"
 ! !
 
+!MCDirectoryRepository methodsFor:'initialization'!
+
+initialize
+	super initialize.
+	directory := FileDirectory default
+! !
+
+!MCDirectoryRepository methodsFor:'queries'!
+
+allFileNames
+	^ (directory entries sortBy: [:a :b | a modificationTime >= b modificationTime]) collect: [:ea | ea name]
+! !
+
 !MCDirectoryRepository class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDirectoryRepository.st,v 1.6 2012-09-11 21:21:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDirectoryRepository.st,v 1.7 2014-02-12 14:53:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDirectoryRepository.st,v 1.6 2012-09-11 21:21:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDirectoryRepository.st,v 1.7 2014-02-12 14:53:38 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: MCDirectoryRepository.st 17 2010-10-13 12:07:52Z vranyj1 §'
+    ^ '$Id: MCDirectoryRepository.st,v 1.7 2014-02-12 14:53:38 cg Exp $'
 ! !
+