diff --git a/repository/Grafoscopio/GrafoscopioDockingBar.class.st b/repository/Grafoscopio/GrafoscopioDockingBar.class.st
index 0fa8f67..7f7f817 100644
--- a/repository/Grafoscopio/GrafoscopioDockingBar.class.st
+++ b/repository/Grafoscopio/GrafoscopioDockingBar.class.st
@@ -54,9 +54,6 @@ GrafoscopioDockingBar class >> defaultHelpMenu [
 	| defaultHelpMenu |
 	defaultHelpMenu := MenuMorph new.
 	defaultHelpMenu
-		add: 'Tutorial (Spanish)'
-			target: [ GrafoscopioNotebook open: GrafoscopioDocs tutorial ]
-			selector: #value;
 		add: 'Manual'
 			target: [ GrafoscopioNotebook open: GrafoscopioDocs manual ]
 			selector: #value;
diff --git a/repository/Grafoscopio/GrafoscopioDocs.class.st b/repository/Grafoscopio/GrafoscopioDocs.class.st
index ec31d17..3d64bcc 100644
--- a/repository/Grafoscopio/GrafoscopioDocs.class.st
+++ b/repository/Grafoscopio/GrafoscopioDocs.class.st
@@ -54,15 +54,14 @@ GrafoscopioDocs >> initialize [
 	When more documents become more mature and usable, I will include them."
 
 	super initialize.
-	
 	name := 'grafoscopio'. 
 	repository := (FossilRepo new remote: 'http://mutabit.com/repos.fossil/grafoscopio').
 	localPlace := FileLocator workingDirectory asFileReference /'Grafoscopio'.
 	self 
 		addDocument: 'Docs/Es/Tutoriales/tutorial.ston';
 		addDocument: 'Docs/En/Books/Manual/manual.ston';
+		addDocument: 'Docs/En/Books/Manual/manual.pdf';
 		addDocument: 'Docs/En/Books/DataActivism/techniques-for-datactivism.ston';
 		addDocument: 'Docs/En/dev-notes.ston';
-		addDocument: 'Docs/En/Books/Manual/manual.pdf';
-		addDocument: 'Docs/En/SpecIUFramework/spec-ui-framework.ston'.
+		addDocument: 'Docs/En/Books/SpecIUFramework/spec-ui-framework.ston'.
 ]
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index 46d476d..0b0336c 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -81,7 +81,7 @@ GrafoscopioNotebook >> autoSaveBodyOf: aNode [
 	playground := body body glmPres.
 	playground
 		onChangeOfPort: #text
-			act: [ :x | aNode body: x entity value content ]";		
+			act: [ :x | aNode body: (x pane port: #text) value ]";		
 		onChangeOfPort: #activePresentation
 			act: [ aNode output: aNode processOutput ]"
 ]
@@ -379,7 +379,8 @@ GrafoscopioNotebook >> links: anObject [
 
 { #category : #persistence }
 GrafoscopioNotebook >> loadFromFile: aFileReference [
-	"I load the contents of aFileReference into a GrafoscopioNotebook, without opening it."						
+	"I load the contents of aFileReference into a GrafoscopioNotebook, without opening it."
+	(aFileReference basename endsWith: 'ston') ifFalse: [ ^ self ].
 	self workingFile: aFileReference.
 	self notebook: ((STON fromString: self workingFile contents) at: 1) parent.
 	self title: self workingFile basenameWithIndicator, ' | Grafoscopio notebook'.