Class Class

compileMethod: aString 

	| method |

	method := self parseMethod: aString.

	method notNil 

		ifTrue: [ methods := (((methods select: [:m | m name ~= method name])

								add: method) 

							asOrdered: [:a :b | a name < b name]) asArray ]

		ifFalse: [ self error: 'cannot compile method'].

	^ true