--- a/compiler/extensions.st	Tue Aug 25 19:05:18 2015 +0100
+++ b/compiler/extensions.st	Wed Aug 26 07:51:18 2015 +0100
@@ -21,6 +21,22 @@
     "Created: / 21-08-2015 / 22:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!RBBlockNode methodsFor:'accessing'!
+
+scope
+    ^ self propertyAt: #scope
+
+    "Created: / 25-08-2015 / 22:14:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBBlockNode methodsFor:'accessing'!
+
+scope: aTScope
+    ^ self propertyAt: #scope put: aTScope
+
+    "Created: / 25-08-2015 / 22:14:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !RBMethodNode methodsFor:'accessing'!
 
 returnTypeSpec
@@ -42,6 +58,62 @@
     "Created: / 21-08-2015 / 22:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!RBMethodNode methodsFor:'accessing'!
+
+scope
+    ^ self propertyAt: #scope
+
+    "Created: / 25-08-2015 / 22:14:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBMethodNode methodsFor:'accessing'!
+
+scope: aTScope
+    ^ self propertyAt: #scope put: aTScope
+
+    "Created: / 25-08-2015 / 22:14:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBProgramNode methodsFor:'accessing'!
+
+binding
+    ^ self propertyAt: #binding
+
+    "Created: / 25-08-2015 / 22:15:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBProgramNode methodsFor:'accessing'!
+
+binding: aTBinding
+    self propertyAt: #binding put: aTBinding
+
+    "Created: / 25-08-2015 / 22:15:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBProgramNode methodsFor:'accessing'!
+
+scope
+    ^ self parent scope
+
+    "Created: / 25-08-2015 / 22:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBReturnNode methodsFor:'accessing'!
+
+binding
+    ^ value binding
+
+    "Created: / 25-08-2015 / 23:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBReturnNode methodsFor:'accessing'!
+
+binding: aTBinding
+    self shouldNotImplement
+
+    "Created: / 25-08-2015 / 23:39:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !RBVariableNode methodsFor:'accessing'!
 
 typeSpec