Class Class

compileMethod: aString namespaceNamed: aSymbol

	| n |

	self assert: [aSymbol isSymbol].

	n := MethodNamespace namespaces select: [:nn| nn name = aSymbol].

	n := n at: 1.

	^ self compileMethod: aString namespace: n