| bibFile bibliography bibStream bibOutputer |
bibFile := ((FileLocator documents / 'U/Libertadores/Grafoscopio/Docs/Es/Articulos/Libertadores/') children
    detect: [:each | each basename endsWith: 'bib' ]).
bibliography := CZBibParser parse: bibFile contents.
bibStream := '' writeStream.
(bibliography entries) do: [:bibItem |
	bibItem fields do: [:some | some key = 'shorttitle'
		ifTrue: [ bibItem key: some value ]].
	bibOutputer := CZBibtexOutputer new.
	bibStream nextPutAll: 
			(bibOutputer entryToBibtexString: bibItem); cr].
bibliography.
bibFile writeStreamDo: [:stream |
       stream nextPutAll: bibStream contents withUnixLineEndings ].
bibStream contents.