diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index 266f5b9..0a0b41b 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -331,6 +331,11 @@ FossilRepo >> lastVersionPath: aFileNameWithRelativePath [
 		ifFalse: [ ^ '/doc/tip/', aFileNameWithRelativePath ]
 ]
 
+{ #category : #accessing }
+FossilRepo >> list [
+ ^ (self command: 'ls') lines
+]
+
 { #category : #accessing }
 FossilRepo >> listUnversioned [
 
@@ -464,14 +469,6 @@ FossilRepo >> status [
 	status := self command: 'status'.
 	output := OrderedDictionary new.
 	
-	edited := status lines select: [ :line | line beginsWith: 'EDITED' ].
-	output at: 'edited files' put: (edited collect: 
-										[ :line | (line withoutPrefix: 'EDITED')trimmed ]).
-	
-	missing := status lines select: [ :line | line beginsWith: 'MISSING' ].
-	output at: 'missing files' put: (missing collect: 
-										[ :line | (line withoutPrefix: 'MISSING')trimmed ]).
-	
 	status linesDo: [ :line | | k  v temp commitLog | 
 		commitLog := OrderedCollection new.
 		temp := line splitOn: ': '.
@@ -484,6 +481,13 @@ FossilRepo >> status [
 			ifFalse: [ commitLog add: line ].
 		output at: 'commitLog' put: commitLog 
 	].
+	edited := status lines select: [ :line | line beginsWith: 'EDITED' ].
+	output at: 'edited files' put: (edited collect: 
+										[ :line | (line withoutPrefix: 'EDITED')trimmed ]).
+	
+	missing := status lines select: [ :line | line beginsWith: 'MISSING' ].
+	output at: 'missing files' put: (missing collect: 
+										[ :line | (line withoutPrefix: 'MISSING')trimmed ]).
 	^ output
 ]