diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index 84b4696..1560e8e 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -702,6 +702,12 @@ GrafoscopioNode >> preorderTraversal [
 	^ nodesInPreorder.
 ]
 
+{ #category : #'as yet unclassified' }
+GrafoscopioNode >> processOutput [
+	(self headerStartsWith: '%output')
+		ifTrue: [ self output: (Compiler evaluate: self body) ]
+]
+
 { #category : #movement }
 GrafoscopioNode >> promote [
 	"Moves the current node up in the hierachy, making it a slibing of its current parent"
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index c7dfbf1..b0a0991 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -66,7 +66,7 @@ GrafoscopioNotebook >> autoSaveBodyOf: aNode [
 		onChangeOfPort: #text
 			act: [ :x | aNode body: x entity value content ];		
 		onChangeOfPort: #activePresentation
-			act: [ aNode output: (Compiler evaluate: aNode body) ]
+			act: [ aNode output: aNode processOutput ]
 ]
 
 { #category : #accessing }