| aString date hour day month year monthIndex |
	aString := '19:04 - 22 de jun. de 2009'.
	hour := aString copyFrom: 1 to: 5.
	day := aString copyFrom: 9 to: 10.
	month := aString copyFrom: 15 to: 17.
	year := aString copyFrom: 23 to: 26.
	
	monthIndex := Dictionary new.
	monthIndex 
		at: 'ene' put: '01';
		at: 'feb' put: '02';
		at: 'mar' put: '03';
		at: 'abr' put: '04';
		at: 'may' put: '05';
		at: 'jun' put: '06';
		at: 'jul' put: '07';
		at: 'ago' put: '08';
		at: 'sep' put: '09';
		at: 'oct' put: '10';
		at: 'nov' put: '11';
		at: 'dic' put: '12'.
		
	month := monthIndex at: month.
	date := (year,'-',month,'-',day,'-',hour) asDate