| packageName ancestry anscestors substring |��
packageName := 'MyPackageXX'.
substring := 'whatever I want to search'.
ancestry := (MCWorkingCopy allManagers detect: [:each | each packageName = packageName] ) ancestry. ��
anscestors := ancestry withBreadthFirstAncestors select: [:each | each isKindOf: MCVersionInfo].
anscestors select: [ :each | each message includesSubstring: substring ]