diff --git a/repository/Grafoscopio/GrafoscopioDockingBar.class.st b/repository/Grafoscopio/GrafoscopioDockingBar.class.st
index 0326909..1a19835 100644
--- a/repository/Grafoscopio/GrafoscopioDockingBar.class.st
+++ b/repository/Grafoscopio/GrafoscopioDockingBar.class.st
@@ -431,11 +431,11 @@ GrafoscopioDockingBar class >> start [
 	
 	helpMenu := MenuMorph new.
 	helpMenu 
-		add: 'Tutorial (Spanish)' target: GrafoscopioDocumentation selector: #openTutorial;
-		add: 'Manual' target: GrafoscopioDocumentation selector: #openManual;
-		add: 'Manual (PDF)' target: GrafoscopioDocumentation selector: #openPDFManual;
+		add: 'Tutorial (Spanish)' target: (GrafoscopioDocs new) selector: #openTutorial;
+		add: 'Manual' target: (GrafoscopioDocs new) selector: #openManual;
+		add: 'Manual (PDF)' target: (GrafoscopioDocs new) selector: #openPDFManual;
 		add: 'Dataviz' target: (DatavizDocs new) selector: #openIntroNotebook;
-		add: 'Dev''s notes' target: GrafoscopioDocumentation selector: #openDevNotes;
+		add: 'Dev''s notes' target: (GrafoscopioDocs new) selector: #openDevNotes;
 		add: 'About Grafoscopio' target: self selector: #messageAbout.
 		
 	dockingBar := DockingBarMorph new.
diff --git a/repository/Grafoscopio/GrafoscopioDocs.class.st b/repository/Grafoscopio/GrafoscopioDocs.class.st
index 9c14f4d..c9b585b 100644
--- a/repository/Grafoscopio/GrafoscopioDocs.class.st
+++ b/repository/Grafoscopio/GrafoscopioDocs.class.st
@@ -3,65 +3,51 @@ I define the documentation for the Grafoscopio package.
 "
 Class {
 	#name : #GrafoscopioDocs,
-	#superclass : #Object,
+	#superclass : #GrafoscopioDocumentation,
 	#category : #Grafoscopio
 }
 
 { #category : #initialization }
-GrafoscopioDocs class >> defineDocumentation [
+GrafoscopioDocs >> initialize [
 	"I model the important documents that belong to the Grafoscopio documentation.
 	When more documents become more mature and usable, I will include them."
 
-	| gfcDocumentation |
-	gfcDocumentation := GrafoscopioDocumentation new.
-	gfcDocumentation
-		name: 'grafoscopio'; 
-		repository: (FossilRepo new remote: 'http://mutabit.com/repos.fossil/grafoscopio');
-		localPlace: FileLocator workingDirectory asFileReference /'Grafoscopio'.
-	gfcDocumentation documents 
+	super initialize.
+	
+	name := 'grafoscopio'. 
+	repository := (FossilRepo new remote: 'http://mutabit.com/repos.fossil/grafoscopio').
+	localPlace := FileLocator workingDirectory asFileReference /'Grafoscopio'.
+	self documents 
 		add: 'Docs/Es/Tutoriales/tutorial.ston';
 		add: 'Docs/En/Books/Manual/manual.ston';
 		add: 'Docs/En/dev-notes.ston';
 		add: 'Docs/En/Books/Manual/manual.pdf'.
-	^ gfcDocumentation
-]
-
-{ #category : #initialization }
-GrafoscopioDocs class >> initialize [
-	self defineDocumentation
 ]
 
 { #category : #operation }
-GrafoscopioDocs class >> openDevNotes [
+GrafoscopioDocs >> openDevNotes [
 	"I'm just an alias to ease the operation. I need to know wich is the index of the notebook
-	I want to open, as defined on defineDocumentation method."
-	| docs |
-	docs := self defineDocumentation.
-	docs openNotebookAt: 3 
+	I want to open, as defined on method."
+	self openNotebookAt: 3 
 ]
 
 { #category : #operation }
-GrafoscopioDocs class >> openManual [
+GrafoscopioDocs >> openManual [
 	"I'm just an alias to ease the operation. I need to know wich is the index of the notebook
-	I want to open, as defined on defineDocumentation method."
-	| docs |
-	docs := self defineDocumentation.
-	docs openNotebookAt: 2 
+	I want to open, as defined on  method."
+	self openNotebookAt: 2 
 ]
 
 { #category : #operation }
-GrafoscopioDocs class >> openPDFManual [
+GrafoscopioDocs >> openPDFManual [
 	"I open the documentation in PDF format."
-	| pdfManual docs |
-	docs := self defineDocumentation.
-	pdfManual := docs documents at: 4.
-	WebBrowser openOn: (docs localPlace / pdfManual) fullName.
+	| pdfManual |
+	pdfManual := self documents at: 4.
+	WebBrowser openOn: (self localPlace / pdfManual) fullName.
 ]
 
 { #category : #operation }
-GrafoscopioDocs class >> openTutorial [
+GrafoscopioDocs >> openTutorial [
 	"I open the proper notebook in the adecuate documentation."
-	| docs |
-	docs := self defineDocumentation.
-	docs openNotebookAt: 1 
+	self openNotebookAt: 1 
 ]