AbstractDistributionMap >> defaultTitleFormattingBlock ^ [ :each | | t | t := each. (t beginsWith: 'Citezen-') ifTrue: [ t := t copyReplaceAll: 'Citezen-' with: 'C' ]. (t beginsWith: 'Seaside-') ifTrue: [ t := t copyReplaceAll: 'Seaside-' with: 'S' ]. t := t copyReplaceAll: 'Tests-' with: 'T-'. "t := (Kontract reduce: t upTo: 10)." t ]
On the one hand, it hardcodes stuff like Citizen or Seaside. But what is worse is that that Kontract does not exist...
Cheers,