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