diff --git a/src/PetitMarkdown/PPCMInlinedCode.class.st b/src/PetitMarkdown/PPCMInlinedCode.class.st
index eaeb7c3..c24532e 100644
--- a/src/PetitMarkdown/PPCMInlinedCode.class.st
+++ b/src/PetitMarkdown/PPCMInlinedCode.class.st
@@ -26,3 +26,8 @@ PPCMInlinedCode >> code: anObject [
 PPCMInlinedCode >> text [
 	^ code
 ]
+
+{ #category : #accessing }
+PPCMInlinedCode >> viewBody [
+	^ (self className ,' ', self text) asRopedText.
+]