Martin,

> Thanks, this does most of the trick except one Font (MusiTone) does
> not seem to get garbage collected. When is explore objects pointing to
> it I see a TextStyle. TextStyle allInstances also shows a MusiTone
> TextStyle, but it is not in the TextConstants (TextConstants select:
> [:each| each class = TextStyle]). 
> 
> When I follow objects ponting to this TextStyle I only see an
> "anInspector". I believe this is me. But why doesn't the
> TextStyle->Font get garbage collected?

  I wonder if "TTCFont class>>removeStyleName:" does the trick?

-- Yoshiki