Class Class

compileMethod: aString namespace: aNamespace

	| method |

	method := self parseMethod: aString.

	method notNil 

		ifTrue: [method namespace: aNamespace.

				methods := (((methods reject: [:m | (m name = method name) 

													and: [m namespace = aNamespace]])

								add: method) 

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

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

	^ true