accessing
correctMetadataUrl
	self metadata keysAndValuesDo: [ :key :value |
   (value includesSubstring: '42l.fr')
   	ifTrue: [ self metadata at: key put: (value copyReplaceAll: '42l.fr' with: 'net' )]
].
	^ self