diff --git a/src/PaqueteSemanal/PaqueteSemanal.class.st b/src/PaqueteSemanal/PaqueteSemanal.class.st
index 5efd952..f15094f 100644
--- a/src/PaqueteSemanal/PaqueteSemanal.class.st
+++ b/src/PaqueteSemanal/PaqueteSemanal.class.st
@@ -20,7 +20,7 @@ PaqueteSemanal class >> location: anObject [
 PaqueteSemanal >> extractMetadataForFolder: subfolder [
 
 	| subfolderFiles extractMetadatos |
-	subfolderFiles := subfolder allChildren select: [:item | item  isFile and: [(item basename = '.DS_Store') not ]].
+	subfolderFiles := (self location / subfolder) allChildren select: [:item | item  isFile and: [(item basename = '.DS_Store') not ]].
 	subfolderFiles do: [:archivoPruebas | | metadatosArchivo titulo metaTiddler |
 	extractMetadatos := GtSubprocessWithInMemoryOutput new
 	command: '/usr/local/bin/exiftool';
@@ -42,6 +42,11 @@ PaqueteSemanal >> extractMetadataForFolder: subfolder [
 
 ]
 
+{ #category : #accessing }
+PaqueteSemanal >> location [
+ ^ location
+]
+
 { #category : #accessing }
 PaqueteSemanal >> location: anObject [
 	location := anObject