--- orig/compiler/STCompiler.st
+++ mod/compiler/STCompiler.st
@@ -125,16 +125,12 @@
 !STCompiler class methodsFor: 'compilation'!
 
 compile: methodNode for: aBehavior classified: aString parser: aParser
-    | cm |
-    cm := self new
-	class: aBehavior parser: aParser;
-	visitNode: methodNode.
-
-    cm methodCategory: aString.
-
     ^aBehavior
 	addSelector: methodNode selector
-	withMethod: cm
+	withMethod: (self compile: methodNode
+			  asMethodOf: aBehavior
+			  classified: aString
+			  parser: aParser)
 !
 
 compile: methodNode asMethodOf: aBehavior classified: aString parser: aParser