From d066d77a1c442ace40e57eb68033891d320cd623 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 19 May 2023 10:43:27 -0500
Subject: [PATCH] Fixing STON wiki exportation.

---
 repository/TiddlyWiki/Tiddler.class.st    |  2 +-
 repository/TiddlyWiki/TiddlyWiki.class.st | 11 ++++++-----
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/repository/TiddlyWiki/Tiddler.class.st b/repository/TiddlyWiki/Tiddler.class.st
index 7f923fd..58ad08f 100644
--- a/repository/TiddlyWiki/Tiddler.class.st
+++ b/repository/TiddlyWiki/Tiddler.class.st
@@ -87,7 +87,7 @@ Tiddler >> asStonStringPretty [
 	temp wiki: nil.
 	output := '' writeStream.
 	(STON writer on: output)
-		newLine: String crlf;	
+		newLine: String lf;	
     	prettyPrint: true;
 		keepNewLines: true;
     	nextPut: temp.
diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index 5ebb8ce..9a0edff 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -345,7 +345,8 @@ TiddlyWiki >> exportSTONFiles [
 	wikiTemp := self copy.
 	wikiTemp tiddlers: self commonTiddlers.
 	MiniDocs exportAsSton: self shadow on: shadowFile.
-	^ MiniDocs exportAsSton: wikiTemp on: stonFile
+	MiniDocs exportAsSton: wikiTemp on: stonFile.
+	^ self folder
 ]
 
 { #category : #accessing }
@@ -532,10 +533,10 @@ TiddlyWiki >> largeTiddlersFolder [
 	for example the ones that come in the plugins or in system tiddlers.
 	For more information about shadow tiddlers, see #shadow method."
 	
-	| folder |
-	folder := self file parent / self largeTiddlersFolderName.
-	folder ensureCreateDirectory.
-	^ folder
+	| largeFilesFolder |
+	largeFilesFolder := self folder / self largeTiddlersFolderName.
+	largeFilesFolder ensureCreateDirectory.
+	^ largeFilesFolder
 ]
 
 { #category : #accessing }