diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index af73c29..a23e0c0 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -264,7 +264,7 @@ GrafoscopioNode >> bodyAsCode [
 		nextPutAll:  ('~~~'); lf;
 		nextPutAll: (self body contents asString withInternetLineEndings); lf;
 	   nextPutAll:  ('~~~'); lf.
-	^codeBody contents
+	^ codeBody contents
 ]
 
 { #category : #accessing }
@@ -565,15 +565,16 @@ GrafoscopioNode >> markdownContent [
 							embedNodes do: [ :each | 
 								temporalBody := temporalBody copyReplaceAll: '%embed-all' with: (each body, (String with: Character cr), 
 																																		'%embed-all')].
-							temporalBody := temporalBody copyReplaceAll: '%embed-all' with: ''		
-							]
-					].
+							temporalBody := temporalBody copyReplaceAll: '%embed-all' with: '']].
 				markdown nextPutAll: (temporalBody contents withInternetLineEndings ); crlf; crlf].
 	(self headerStartsWith: '%idea')
 		ifTrue: [
 			embedNodes := self children select: [:each | each headerStartsWith: '%embed'].
-			temporalBody := self body.
-			embedNodes ifNotNil: [ embedNodes do: [ :each | temporalBody := temporalBody copyReplaceAll: (each header) with: each body]].
+			temporalBody := self body string.
+			embedNodes ifNotNil: [ embedNodes do: [ :each | 
+					each tags = 'código'
+						ifFalse: [temporalBody := temporalBody copyReplaceAll: (each header) with: each body]
+						ifTrue: [temporalBody := temporalBody copyReplaceAll: (each header) with: each bodyAsCode]]].
 			markdown nextPutAll: (temporalBody contents withUnixLineEndings); lf; lf.			
 			].	
 	(self headerStartsWith: '%footnote')