fromString: aString | sym | sym := self convertString: aString. ^ self allSymbols find: [:each| each = sym] ifAbsent: [self allSymbols add: sym. sym]