accessing
printOn: aStream
	| currentName |
	currentName := self name ifNil: ['Unammed'].
	super printOn: aStream.
	aStream
		nextPutAll: '( ', currentName, ' )'.