diff --git a/src/MiniDocs/Markdown.class.st b/src/MiniDocs/Markdown.class.st
index 069619f..1117488 100644
--- a/src/MiniDocs/Markdown.class.st
+++ b/src/MiniDocs/Markdown.class.st
@@ -32,10 +32,9 @@ Markdown >> commentYAMLMetadata [
 	newContents := '' writeStream.
 	newContents nextPutAll: '<!--@yaml'; lf.
 	newContents nextPutAll: self yamlMetadataString.
-	newContents nextPutAll: String lf. 
 	newContents nextPutAll: '-->'; lf; lf.
 	(self lines copyFrom: self yamlMetadataClosingLineNumber + 2 to: self lines size) do: [ :line |
-		newContents nextPutAll: line; lf;lf ].
+		newContents nextPutAll: line; lf ].
 	^ newContents contents.
 ]
 
diff --git a/src/PetitMarkdown/PPCMLink.class.st b/src/PetitMarkdown/PPCMLink.class.st
index 6625acb..3ae375b 100644
--- a/src/PetitMarkdown/PPCMLink.class.st
+++ b/src/PetitMarkdown/PPCMLink.class.st
@@ -39,7 +39,7 @@ PPCMLink >> printOn: aStream [
 	super initialize.
 	^ aStream
 		nextPutAll: 
-			self label children first text,
+			self label  text,
 			' -> ',
 			self destination
 ]