buscarTitularBasadoEnDNI: unDni
    |tdominios anyPeriodo|
    "instancia := Administrador instance."
    tdominios := administrador dominios.

    anyPeriodo := tdominios
        detect: [ :unDominio | unDominio todosLosPeriodos last titular dni = unDni ].
    anyPeriodo isNil
        ifFalse: [ ^ anyPeriodo todosLosPeriodos last titular ]
        ifTrue: [ ^ self error: 'No hemos encontrado titulares que coincidan con la busqueda.' ]