diff --git a/src/PaqueteSemanal/PaqueteSemanal.class.st b/src/PaqueteSemanal/PaqueteSemanal.class.st
index f15094f..ca7d754 100644
--- a/src/PaqueteSemanal/PaqueteSemanal.class.st
+++ b/src/PaqueteSemanal/PaqueteSemanal.class.st
@@ -19,7 +19,8 @@ PaqueteSemanal class >> location: anObject [
 { #category : #accessing }
 PaqueteSemanal >> extractMetadataForFolder: subfolder [
 
-	| subfolderFiles extractMetadatos |
+	| subfolderFiles extractMetadatos subfolderRenamed |
+	subfolderRenamed := self sanitizeFolderNamed: subfolder.
 	subfolderFiles := (self location / subfolder) allChildren select: [:item | item  isFile and: [(item basename = '.DS_Store') not ]].
 	subfolderFiles do: [:archivoPruebas | | metadatosArchivo titulo metaTiddler |
 	extractMetadatos := GtSubprocessWithInMemoryOutput new
@@ -35,10 +36,10 @@ PaqueteSemanal >> extractMetadataForFolder: subfolder [
 		text: metadatosArchivo;
 		type: 'application/json'.
 	MarkupFile 
-		exportAsFileOn: (self metadataFolder / titulo, 'json') 
+		exportAsFileOn: (self metadataFolder / subfolderRenamed / titulo, 'json') 
 		containing: metaTiddler  asJson	
 ].
-^ self metadataFolder
+^ self metadataFolder / subfolderRenamed
 
 ]
 
@@ -66,3 +67,12 @@ PaqueteSemanal >> repository [
 PaqueteSemanal >> repository: folder [ 
 	repository := folder 
 ]
+
+{ #category : #accessing }
+PaqueteSemanal >> sanitizeFolderNamed: name [ 
+	| sanitized |
+	sanitized := name trimmed copyReplaceAll: '!' with: ''.
+	sanitized := sanitized copyReplaceAll: ' ' with: ''.
+	sanitized := sanitized romanizeAccents.
+	^ sanitized
+]