Sorry, I had two versions of this e-mail and sent the earlier edited one. 
I wrote:

> Be aware that the New York fonts do not presently appear in the 
> TextConstants dictionary, so you may want to create one before replacing 
> it with your comic font.  On my standard system, the following seems to 
> do most of what you seek:
>
> 	TextConstants
> 		at:  #NewYorkPlain
> 		put: (TextConstants at: #DefaultTextStyle).
> 	TextConstants
> 		at: #DefaultTextStyle
> 		put: (TextConstants at: #ComicPlain).
> 	TextConstants
> 		at: #DefaultTextStyle
> 		put: (TextConstants at: #NewYorkPlain).

I meant to say:

Be aware that the New York fonts do not have their own entry in the 
TextConstants dictionary, so you may want to copy them to such an entry 
before replacing (TextConstants at: #DefaultTextStyle) with the TextStyle 
for Comic Plain.  On my base system 2.3, the following seems to do most of 
what you wanted:

	TextConstants
		at:  #NewYorkPlain
		put: (TextConstants at: #DefaultTextStyle).
	TextConstants
		at: #DefaultTextStyle
		put: (TextConstants at: #ComicPlain).
You can test this out by opening new windows, and paragraph text will be 
generated in Comic Plain.  You can restore the old settings with:

	TextConstants
		at: #DefaultTextStyle
		put: (TextConstants at: #NewYorkPlain).