"first evaluate this"
f1 := TextStyle default fontAt: 5.	"a specific size"
form1 := f1 characterFormAt: 9 asCharacter.
form1 bitEdit.
	
	"second accept with haloMenu"

	"third evaluate this"
f1 := TextStyle default fontAt: 5.
f1 characterFormAt: 9 asCharacter put: form1.