diff --git a/repository/Grafoscopio/GfUIHelpers.class.st b/repository/Grafoscopio/GfUIHelpers.class.st
index f6655df..5ea6025 100644
--- a/repository/Grafoscopio/GfUIHelpers.class.st
+++ b/repository/Grafoscopio/GfUIHelpers.class.st
@@ -129,13 +129,15 @@ GfUIHelpers class >> messageNotImplementedYet [
 { #category : #'graphical interface' }
 GfUIHelpers class >> openFromRecentlyUsed [	
 	"Opens a recent notebooks list"
-	| selection |
+	| selection recentNotebooksReversed |
 
 	self recentNotebooks
 		ifNotEmpty: [
-			selection := UIManager default chooseFrom: recentNotebooks reversed title: 'Choose a notebook'.
+			recentNotebooksReversed := recentNotebooks reversed. 
+			selection := UIManager default 
+					chooseFrom: recentNotebooksReversed title: 'Choose a notebook...'.
 			selection > 0
-				ifTrue: [ GrafoscopioNotebook new openFromFile: (recentNotebooks at: selection)]
+				ifTrue: [ GrafoscopioNotebook new openFromFile: (recentNotebooksReversed at: selection)]
 				ifFalse: [ self inform: 'No notebook selected!' ]
 		]
 		ifEmpty: [self messageNoRecentDocuments]	
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index c6f738e..e52c228 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -809,7 +809,7 @@ GrafoscopioNotebook >> saveToFileUI [
 	| file |
 	
 	file := UIManager default
-		fileSave: 'Export notebook to file as...'
+		chooseForSaveFileReference: 'Export notebook to file as...'
 		extensions: #('ston')
 		path: (workingFile ifNotNil: [ workingFile parent ] ifNil: [ FileLocator documents ]  ).
 	file