Class Char
back
new: value
" create and initialize a new char "
^ self in: self new at: 1 put: value