Class Symbol Object
Methods Symbol

    	apply: args ifError: aBlock
		^ smalltalk perform: self withArguments: args ifError: aBlock

]
Methods Symbol

	printString
		^ '#' , self asString

]
Methods Symbol

	asString
		" catenation makes string and copy automatically "
		^ <24 self ''>

]
Methods Symbol

	assign: value
		<27 self value>. ^ value

]
Methods Symbol

	copy
		^ self

]
Methods Symbol
    	apply: args
		^ self apply: args ifError: [ 'does not apply' ]

]
Methods Symbol

	respondsTo
		^ classes inject: Set new
			into: [:x :y | ((y methodNamed: self) notNil)
						ifTrue: [ x add: y]. x]

]
Methods Symbol

	value
		^ <87 self>

]