diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index 7901436..7731e0c 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -95,6 +95,18 @@ TiddlyWiki >> contentTiddlersWithoutLargeTiddlers [
 	^ content.
 ]
 
+{ #category : #accessing }
+TiddlyWiki >> detectRepository [
+
+	| folder folderItems |
+	folder := self file parent.
+	folderItems := folder children.
+	[(folderItems select: [ :path | path fullName endsWith: '.fossil' ]) isEmpty]
+		whileTrue: [folder := folder parent.
+			folderItems := folder children.].
+	^ folder
+]
+
 { #category : #accessing }
 TiddlyWiki >> exportContentShadowAndLargeTiddlersSTONFiles [