diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index 3b91d40..10595b5 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -14,6 +14,13 @@ Class {
 	#category : 'TiddlyWiki-Model'
 }
 
+{ #category : 'accessing' }
+TiddlyWiki >> exportSTONTiddlersFile [
+	| stonFile |
+	stonFile := self tiddlersJSONFile withoutExtension, 'ston'.
+	^ MarkupFile exportAsFileOn: stonFile containing:(STON toStringPretty: self) 
+]
+
 { #category : 'accessing' }
 TiddlyWiki >> file [
 	^ file