diff --git a/src/PetitMarkdown/PPCMLink.class.st b/src/PetitMarkdown/PPCMLink.class.st
index 92076ea..6625acb 100644
--- a/src/PetitMarkdown/PPCMLink.class.st
+++ b/src/PetitMarkdown/PPCMLink.class.st
@@ -34,6 +34,16 @@ PPCMLink >> label: anObject [
 	label := anObject
 ]
 
+{ #category : #accessing }
+PPCMLink >> printOn: aStream [
+	super initialize.
+	^ aStream
+		nextPutAll: 
+			self label children first text,
+			' -> ',
+			self destination
+]
+
 { #category : #accessing }
 PPCMLink >> title [
 	^ title