diff --git a/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st b/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
index 2c2a564..e162ed0 100644
--- a/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
+++ b/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
@@ -60,7 +60,15 @@ GrafoscopioUtils class >> ensureCreateDirectory: fileNameWithRelativePath into:
 
 { #category : #persistence }
 GrafoscopioUtils class >> exportAsSton: anObject on: aFileReference [
-	"comment stating purpose of message"
+	aFileReference exists ifTrue: [ aFileReference ensureDelete ].
+	aFileReference ensureCreateFile.
+	aFileReference writeStreamDo: [ :stream |
+		(STON writer on: stream)
+			newLine: String crlf;
+			prettyPrint: true;
+			keepNewLines: true;
+			nextPut: anObject ].
+	
 
 	
 ]