diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index b1f8b8b..97a4285 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -773,8 +773,15 @@ GrafoscopioBrowser >> exportAsPdf [
 
 { #category : #persistence }
 GrafoscopioBrowser >> exportAsSton: aTree on: locator [
+	| stonPrettyString |
 	aTree flatten.
-	locator nextPutAll: (STON toStringPretty: aTree children)
+	stonPrettyString := String streamContents: [ :stream |
+    	(STON writer on: stream)
+			newLine: String crlf;	
+      		prettyPrint: true;
+			keepNewLines: true;
+      		nextPut: aTree children].
+	locator nextPutAll: stonPrettyString "(STON toStringPretty: aTree children)"
 ]
 
 { #category : #'graphical interface' }