addThreat: threat
    |findersThreat|
    self threats add: threat.
    findersThreat:= OrderedCollection new.
    "Obtengo los finders de la threat que ingreso, asi la envio a un diccionario de finders con sus threats"
    findersThreat := self dameTusFinders:threat.

    findersThreat do: [:finder | (dic at: finder) add: threat].

    [self recalculateBadSmells:findersThreat]fork.
    "
    [self recalculateBadSmells] fork."