diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index 342ee68..cf4ed08 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -19,8 +19,14 @@ Class {
 }
 
 { #category : #'as yet unclassified' }
-FossilRepo >> add: aFileLocator [ 
-	self shouldBeImplemented.
+FossilRepo >> add: aFileReference [
+	OSSUnixSubprocess new 
+		command: '/usr/bin/fossil';
+		arguments: { 'add' . aFileReference fullName };
+		redirectStdout;
+		runAndWaitOnExitDo: [ :process :outString |
+			outString inspect
+		] 
 ]
 
 { #category : #authentication }
@@ -200,6 +206,19 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
 		ifTrue: [ ^ (aFileNameWithRelativePath copyFrom: 4 to: aFileNameWithRelativePath size)  ]
 ]
 
+{ #category : #'as yet unclassified' }
+FossilRepo >> status [
+	OSSUnixSubprocess new 
+		command: '/usr/bin/fossil';
+		arguments: #('status');
+		workingDirectory: self local parent fullName;
+		redirectStdout;
+		redirectStderr;
+		runAndWaitOnExitDo: [ :process :outString |
+			^ outString
+		] 
+]
+
 { #category : #authentication }
 FossilRepo >> whoAmI [
 	^ NeoJSONReader fromString: (self jsonDataFor: 'whoami')