--- a/core/RGMethod.st	Wed Dec 23 14:22:59 2020 +0000
+++ b/core/RGMethod.st	Wed Dec 23 14:26:52 2020 +0000
@@ -24,6 +24,7 @@
 "
 ! !
 
+
 !RGMethod methodsFor:'accessing'!
 
 argumentNames		
@@ -34,8 +35,9 @@
 ast
     "Answer my AST with semantic analysis. See #parseTree."
     
-    ^ self propertyNamed: #ast ifAbsentPut: [ self parseTree doSemanticAnalysisIn: self methodClass ]
+    ^ self propertyNamed: #ast ifAbsentPut: [ self parseTree ]
 
+    "Modified: / 23-12-2020 / 08:30:34 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 compiledMethod
@@ -67,7 +69,9 @@
 
     ^(RBParser 
         parseMethod: self sourceCode 
-        onError: [ :msg :pos | ^ nil ]) methodClass: self methodClass.
+        onError: [ :msg :pos | ^ nil ])
+
+    "Modified: / 22-12-2020 / 22:34:32 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 selector
@@ -96,7 +100,9 @@
 
 sourceCodeForNoSource
 
-    ^ self selector asMethodPreamble, String cr, String tab, '"source code for the method model not set"'
+    ^ (Parser methodSpecificationForSelector: self selector), String cr, '    "source code for the method model not set"'
+
+    "Modified: / 22-12-2020 / 22:11:23 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !RGMethod methodsFor:'accessing - backend'!
@@ -449,3 +455,10 @@
     ^true
 ! !
 
+!RGMethod class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+