test code generation for SELF

test/expected/eberon/method.js

@@ -17,8 +17,10 @@ var RTL$ = {
 var m = function (){
 var T = RTL$.extend({
 	init: function T(){
+		this.i = 0;
 	}
 });
 T.prototype.p = function(){
+	this.i = 123;
 }
 }();

test/input/eberon/method.ob

@@ -1,8 +1,12 @@
 MODULE m;
 TYPE
-    T = RECORD END;
+    T = RECORD
+		i: INTEGER
+	END;
 
 PROCEDURE T.p(), NEW;
+BEGIN
+	SELF.i := 123;
 END T.p;
 
 END m.