diff --git a/src/AST-Core-Traits/TRBProgramNodeVisitor.trait.st b/src/AST-Core-Traits/TRBProgramNodeVisitor.trait.st
index d8a059134d2..9fc8bc50b83 100644
--- a/src/AST-Core-Traits/TRBProgramNodeVisitor.trait.st
+++ b/src/AST-Core-Traits/TRBProgramNodeVisitor.trait.st
@@ -44,6 +44,12 @@ TRBProgramNodeVisitor >> visitCascadeNode: aCascadeNode [
 	aCascadeNode messages do: [:aMessage | self visitNode: aMessage]
 ]
 
+{ #category : #visiting }
+TRBProgramNodeVisitor >> visitEnglobingErrorNode: anEnglobingErrorNode [
+
+	anEnglobingErrorNode content do: [ :each | self visitNode: each ]
+]
+
 { #category : #visiting }
 TRBProgramNodeVisitor >> visitGlobalNode: aSelfNode [
 	^ self visitVariableNode: aSelfNode
@@ -63,7 +69,7 @@ TRBProgramNodeVisitor >> visitLiteralArrayNode: aRBLiteralArrayNode [
 TRBProgramNodeVisitor >> visitLiteralNode: aLiteralNode [
 ]
 
-{ #category : #'visiting - reflectivity' }
+{ #category : #visiting }
 TRBProgramNodeVisitor >> visitLiteralValueNode: aNode [
 	"Redirect the message by default to #visitLiteralNode: for retrocompatibility (pharo 8)"
 
@@ -173,6 +179,12 @@ TRBProgramNodeVisitor >> visitThisContextNode: aThisContextNode [
 	^ self visitVariableNode: aThisContextNode
 ]
 
+{ #category : #visiting }
+TRBProgramNodeVisitor >> visitUnreachableStatement: anUnreachableStatement [
+	
+	^ self visitEnglobingErrorNode: anUnreachableStatement
+]
+
 { #category : #visiting }
 TRBProgramNodeVisitor >> visitVariableNode: aVariableNode [
 	^ aVariableNode