resin 0.3.1 → 0.4.0

data/amber/js/Kernel-Announcements.deploy.js

@@ -6,8 +6,10 @@ smalltalk.method({
 selector: "announcementClass",
 fn: function (){
 var self=this;
-return self["@announcementClass"];
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@announcementClass"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"announcementClass",{}, smalltalk.AnnouncementSubscription)})}
 }),
 smalltalk.AnnouncementSubscription);
 
@@ -17,8 +19,8 @@ smalltalk.method({
 selector: "announcementClass:",
 fn: function (aClass){
 var self=this;
-self["@announcementClass"]=aClass;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"announcementClass:",{aClass:aClass}, smalltalk.AnnouncementSubscription)})}
 }),
 smalltalk.AnnouncementSubscription);
 
@@ -28,8 +30,10 @@ smalltalk.method({
 selector: "block",
 fn: function (){
 var self=this;
-return self["@block"];
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@block"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"block",{}, smalltalk.AnnouncementSubscription)})}
 }),
 smalltalk.AnnouncementSubscription);
 
@@ -39,8 +43,8 @@ smalltalk.method({
 selector: "block:",
 fn: function (aBlock){
 var self=this;
-self["@block"]=aBlock;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"block:",{aBlock:aBlock}, smalltalk.AnnouncementSubscription)})}
 }),
 smalltalk.AnnouncementSubscription);
 
@@ -50,12 +54,12 @@ smalltalk.method({
 selector: "deliver:",
 fn: function (anAnnouncement){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_handlesAnnouncement_",[anAnnouncement]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._handlesAnnouncement_(anAnnouncement);
 if(smalltalk.assert($1)){
-smalltalk.send(smalltalk.send(self,"_block",[]),"_value_",[anAnnouncement]);
+_st(_st(self)._block())._value_(anAnnouncement);
 };
-return self}
+return self}, function($ctx1) {$ctx1.fill(self,"deliver:",{anAnnouncement:anAnnouncement}, smalltalk.AnnouncementSubscription)})}
 }),
 smalltalk.AnnouncementSubscription);
 
@@ -65,10 +69,10 @@ smalltalk.method({
 selector: "handlesAnnouncement:",
 fn: function (anAnnouncement){
 var self=this;
-var $1;
-$1=smalltalk.send(anAnnouncement,"_isKindOf_",[smalltalk.send(self,"_announcementClass",[])]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(anAnnouncement)._isKindOf_(_st(self)._announcementClass());
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"handlesAnnouncement:",{anAnnouncement:anAnnouncement}, smalltalk.AnnouncementSubscription)})}
 }),
 smalltalk.AnnouncementSubscription);
 
@@ -81,10 +85,10 @@ smalltalk.method({
 selector: "announce:",
 fn: function (anAnnouncement){
 var self=this;
-smalltalk.send(self["@subscriptions"],"_do_",[(function(each){
-return smalltalk.send(each,"_deliver_",[anAnnouncement]);
-})]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"announce:",{anAnnouncement:anAnnouncement}, smalltalk.Announcer)})}
 }),
 smalltalk.Announcer);
 
@@ -94,9 +98,9 @@ smalltalk.method({
 selector: "initialize",
 fn: function (){
 var self=this;
-smalltalk.send(self,"_initialize",[],smalltalk.Object);
-self["@subscriptions"]=smalltalk.send((smalltalk.Array || Array),"_new",[]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+self["@subscriptions"]=_st((smalltalk.Array || Array))._new();
+return self}, function($ctx1) {$ctx1.fill(self,"initialize",{}, smalltalk.Announcer)})}
 }),
 smalltalk.Announcer);
 
@@ -106,13 +110,13 @@ smalltalk.method({
 selector: "on:do:",
 fn: function (aClass,aBlock){
 var self=this;
-var $1,$2;
-$1=smalltalk.send((smalltalk.AnnouncementSubscription || AnnouncementSubscription),"_new",[]);
-smalltalk.send($1,"_block_",[aBlock]);
-smalltalk.send($1,"_announcementClass_",[aClass]);
-$2=smalltalk.send($1,"_yourself",[]);
-smalltalk.send(self["@subscriptions"],"_add_",[$2]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+$1=_st((smalltalk.AnnouncementSubscription || AnnouncementSubscription))._new();
+_st($1)._block_(aBlock);
+_st($1)._announcementClass_(aClass);
+$2=_st($1)._yourself();
+_st(self["@subscriptions"])._add_($2);
+return self}, function($ctx1) {$ctx1.fill(self,"on:do:",{aClass:aClass,aBlock:aBlock}, smalltalk.Announcer)})}
 }),
 smalltalk.Announcer);
 
@@ -127,15 +131,16 @@ smalltalk.method({
 selector: "current",
 fn: function (){
 var self=this;
-var $1;
-if(($receiver = self["@current"]) == nil || $receiver == undefined){
-self["@current"]=smalltalk.send(self,"_new",[],smalltalk.Announcer.klass);
+return smalltalk.withContext(function($ctx1) { 
+$2=self["@current"];
+if(($receiver = $2) == nil || $receiver == undefined){
+self["@current"]=smalltalk.Announcer.klass.fn.prototype._new.apply(_st(self), []);
 $1=self["@current"];
 } else {
-$1=self["@current"];
+$1=$2;
 };
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"current",{}, smalltalk.SystemAnnouncer.klass)})}
 }),
 smalltalk.SystemAnnouncer.klass);
 
@@ -145,8 +150,8 @@ smalltalk.method({
 selector: "new",
 fn: function (){
 var self=this;
-smalltalk.send(self,"_shouldNotImplement",[]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"new",{}, smalltalk.SystemAnnouncer.klass)})}
 }),
 smalltalk.SystemAnnouncer.klass);
 
@@ -158,8 +163,10 @@ smalltalk.method({
 selector: "theClass",
 fn: function (){
 var self=this;
-return self["@theClass"];
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@theClass"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"theClass",{}, smalltalk.SystemAnnouncement)})}
 }),
 smalltalk.SystemAnnouncement);
 
@@ -169,8 +176,8 @@ smalltalk.method({
 selector: "theClass:",
 fn: function (aClass){
 var self=this;
-self["@theClass"]=aClass;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass}, smalltalk.SystemAnnouncement)})}
 }),
 smalltalk.SystemAnnouncement);
 
@@ -198,8 +205,10 @@ smalltalk.method({
 selector: "method",
 fn: function (){
 var self=this;
-return self["@method"];
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@method"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"method",{}, smalltalk.MethodAnnouncement)})}
 }),
 smalltalk.MethodAnnouncement);
 
@@ -209,8 +218,8 @@ smalltalk.method({
 selector: "method:",
 fn: function (aCompiledMethod){
 var self=this;
-self["@method"]=aCompiledMethod;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"method:",{aCompiledMethod:aCompiledMethod}, smalltalk.MethodAnnouncement)})}
 }),
 smalltalk.MethodAnnouncement);
 

data/amber/js/Kernel-Announcements.js

@@ -1,5 +1,6 @@
 smalltalk.addPackage('Kernel-Announcements', {});
 smalltalk.addClass('AnnouncementSubscription', smalltalk.Object, ['block', 'announcementClass'], 'Kernel-Announcements');
+smalltalk.AnnouncementSubscription.comment="The subscription is a single entry in a subscription registry of an `Announcer`.\x0aSeveral subscriptions by the same object is possible."
 smalltalk.addMethod(
 "_announcementClass",
 smalltalk.method({
@@ -7,8 +8,10 @@ selector: "announcementClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return self["@announcementClass"];
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@announcementClass"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"announcementClass",{}, smalltalk.AnnouncementSubscription)})},
 args: [],
 source: "announcementClass\x0a\x09^announcementClass",
 messageSends: [],
@@ -23,8 +26,8 @@ selector: "announcementClass:",
 category: 'accessing',
 fn: function (aClass){
 var self=this;
-self["@announcementClass"]=aClass;
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"announcementClass:",{aClass:aClass}, smalltalk.AnnouncementSubscription)})},
 args: ["aClass"],
 source: "announcementClass: aClass\x0a\x09announcementClass := aClass",
 messageSends: [],
@@ -39,8 +42,10 @@ selector: "block",
 category: 'accessing',
 fn: function (){
 var self=this;
-return self["@block"];
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@block"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"block",{}, smalltalk.AnnouncementSubscription)})},
 args: [],
 source: "block\x0a\x09^block",
 messageSends: [],
@@ -55,8 +60,8 @@ selector: "block:",
 category: 'accessing',
 fn: function (aBlock){
 var self=this;
-self["@block"]=aBlock;
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"block:",{aBlock:aBlock}, smalltalk.AnnouncementSubscription)})},
 args: ["aBlock"],
 source: "block: aBlock\x0a\x09block := aBlock",
 messageSends: [],
@@ -71,12 +76,12 @@ selector: "deliver:",
 category: 'announcing',
 fn: function (anAnnouncement){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_handlesAnnouncement_",[anAnnouncement]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._handlesAnnouncement_(anAnnouncement);
 if(smalltalk.assert($1)){
-smalltalk.send(smalltalk.send(self,"_block",[]),"_value_",[anAnnouncement]);
+_st(_st(self)._block())._value_(anAnnouncement);
 };
-return self},
+return self}, function($ctx1) {$ctx1.fill(self,"deliver:",{anAnnouncement:anAnnouncement}, smalltalk.AnnouncementSubscription)})},
 args: ["anAnnouncement"],
 source: "deliver: anAnnouncement\x0a\x09(self handlesAnnouncement: anAnnouncement)\x0a\x09\x09ifTrue: [self block value: anAnnouncement]",
 messageSends: ["ifTrue:", "value:", "block", "handlesAnnouncement:"],
@@ -91,10 +96,10 @@ selector: "handlesAnnouncement:",
 category: 'announcing',
 fn: function (anAnnouncement){
 var self=this;
-var $1;
-$1=smalltalk.send(anAnnouncement,"_isKindOf_",[smalltalk.send(self,"_announcementClass",[])]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(anAnnouncement)._isKindOf_(_st(self)._announcementClass());
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"handlesAnnouncement:",{anAnnouncement:anAnnouncement}, smalltalk.AnnouncementSubscription)})},
 args: ["anAnnouncement"],
 source: "handlesAnnouncement: anAnnouncement\x0a\x09^anAnnouncement isKindOf: self announcementClass",
 messageSends: ["isKindOf:", "announcementClass"],
@@ -105,6 +110,7 @@ smalltalk.AnnouncementSubscription);
 
 
 smalltalk.addClass('Announcer', smalltalk.Object, ['registry', 'subscriptions'], 'Kernel-Announcements');
+smalltalk.Announcer.comment="The code is based on the announcements as [described by Vassili Bykov](http://www.cincomsmalltalk.com/userblogs/vbykov/blogView?searchCategory=Announcements%20Framework).\x0aThe Announcer holds annoncement subscriptions (`AnnouncementSubscription`) in a private registry.\x0a\x0aUse `#on:do:` to register subscriptions."
 smalltalk.addMethod(
 "_announce_",
 smalltalk.method({
@@ -112,10 +118,10 @@ selector: "announce:",
 category: 'announcing',
 fn: function (anAnnouncement){
 var self=this;
-smalltalk.send(self["@subscriptions"],"_do_",[(function(each){
-return smalltalk.send(each,"_deliver_",[anAnnouncement]);
-})]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"announce:",{anAnnouncement:anAnnouncement}, smalltalk.Announcer)})},
 args: ["anAnnouncement"],
 source: "announce: anAnnouncement\x0a\x09subscriptions do: [:each |\x0a\x09\x09each deliver: anAnnouncement]",
 messageSends: ["do:", "deliver:"],
@@ -130,9 +136,9 @@ selector: "initialize",
 category: 'initialization',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_initialize",[],smalltalk.Object);
-self["@subscriptions"]=smalltalk.send((smalltalk.Array || Array),"_new",[]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+self["@subscriptions"]=_st((smalltalk.Array || Array))._new();
+return self}, function($ctx1) {$ctx1.fill(self,"initialize",{}, smalltalk.Announcer)})},
 args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09subscriptions := Array new",
 messageSends: ["initialize", "new"],
@@ -147,13 +153,13 @@ selector: "on:do:",
 category: 'subscribing',
 fn: function (aClass,aBlock){
 var self=this;
-var $1,$2;
-$1=smalltalk.send((smalltalk.AnnouncementSubscription || AnnouncementSubscription),"_new",[]);
-smalltalk.send($1,"_block_",[aBlock]);
-smalltalk.send($1,"_announcementClass_",[aClass]);
-$2=smalltalk.send($1,"_yourself",[]);
-smalltalk.send(self["@subscriptions"],"_add_",[$2]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+$1=_st((smalltalk.AnnouncementSubscription || AnnouncementSubscription))._new();
+_st($1)._block_(aBlock);
+_st($1)._announcementClass_(aClass);
+$2=_st($1)._yourself();
+_st(self["@subscriptions"])._add_($2);
+return self}, function($ctx1) {$ctx1.fill(self,"on:do:",{aClass:aClass,aBlock:aBlock}, smalltalk.Announcer)})},
 args: ["aClass", "aBlock"],
 source: "on: aClass do: aBlock\x0a\x09subscriptions add: (AnnouncementSubscription new\x0a\x09\x09block: aBlock;\x0a\x09\x09announcementClass: aClass;\x0a\x09\x09yourself)",
 messageSends: ["add:", "block:", "new", "announcementClass:", "yourself"],
@@ -174,15 +180,16 @@ selector: "current",
 category: 'accessing',
 fn: function (){
 var self=this;
-var $1;
-if(($receiver = self["@current"]) == nil || $receiver == undefined){
-self["@current"]=smalltalk.send(self,"_new",[],smalltalk.Announcer.klass);
+return smalltalk.withContext(function($ctx1) { 
+$2=self["@current"];
+if(($receiver = $2) == nil || $receiver == undefined){
+self["@current"]=smalltalk.Announcer.klass.fn.prototype._new.apply(_st(self), []);
 $1=self["@current"];
 } else {
-$1=self["@current"];
+$1=$2;
 };
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"current",{}, smalltalk.SystemAnnouncer.klass)})},
 args: [],
 source: "current\x0a\x09^ current ifNil: [ current := super new ]",
 messageSends: ["ifNil:", "new"],
@@ -197,8 +204,8 @@ selector: "new",
 category: 'instance creation',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_shouldNotImplement",[]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"new",{}, smalltalk.SystemAnnouncer.klass)})},
 args: [],
 source: "new\x0a\x09self shouldNotImplement",
 messageSends: ["shouldNotImplement"],
@@ -216,8 +223,10 @@ selector: "theClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return self["@theClass"];
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@theClass"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"theClass",{}, smalltalk.SystemAnnouncement)})},
 args: [],
 source: "theClass\x0a\x09^ theClass",
 messageSends: [],
@@ -232,8 +241,8 @@ selector: "theClass:",
 category: 'accessing',
 fn: function (aClass){
 var self=this;
-self["@theClass"]=aClass;
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass}, smalltalk.SystemAnnouncement)})},
 args: ["aClass"],
 source: "theClass: aClass\x0a\x09theClass := aClass",
 messageSends: [],
@@ -271,8 +280,10 @@ selector: "method",
 category: 'accessing',
 fn: function (){
 var self=this;
-return self["@method"];
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@method"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"method",{}, smalltalk.MethodAnnouncement)})},
 args: [],
 source: "method\x0a\x09^ method",
 messageSends: [],
@@ -287,8 +298,8 @@ selector: "method:",
 category: 'accessing',
 fn: function (aCompiledMethod){
 var self=this;
-self["@method"]=aCompiledMethod;
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"method:",{aCompiledMethod:aCompiledMethod}, smalltalk.MethodAnnouncement)})},
 args: ["aCompiledMethod"],
 source: "method: aCompiledMethod\x0a\x09method := aCompiledMethod",
 messageSends: [],

data/amber/js/Kernel-Classes.deploy.js

@@ -6,15 +6,14 @@ smalltalk.method({
 selector: "addCompiledMethod:",
 fn: function (aMethod){
 var self=this;
-var $1,$2;
-smalltalk.addMethod(aMethod.selector._asSelector(), aMethod, self);
-;
-$1=smalltalk.send((smalltalk.MethodAdded || MethodAdded),"_new",[]);
-smalltalk.send($1,"_theClass_",[self]);
-smalltalk.send($1,"_method_",[aMethod]);
-$2=smalltalk.send($1,"_yourself",[]);
-smalltalk.send(smalltalk.send((smalltalk.SystemAnnouncer || SystemAnnouncer),"_current",[]),"_announce_",[$2]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._basicAddCompiledMethod_(aMethod);
+$1=_st((smalltalk.MethodAdded || MethodAdded))._new();
+_st($1)._theClass_(self);
+_st($1)._method_(aMethod);
+$2=_st($1)._yourself();
+_st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
+return self}, function($ctx1) {$ctx1.fill(self,"addCompiledMethod:",{aMethod:aMethod}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -24,17 +23,18 @@ smalltalk.method({
 selector: "allInstanceVariableNames",
 fn: function (){
 var self=this;
-var $1;
 var result;
-result=smalltalk.send(smalltalk.send(self,"_instanceVariableNames",[]),"_copy",[]);
-$1=smalltalk.send(self,"_superclass",[]);
+return smalltalk.withContext(function($ctx1) { 
+result=_st(_st(self)._instanceVariableNames())._copy();
+$1=_st(self)._superclass();
 if(($receiver = $1) == nil || $receiver == undefined){
 $1;
 } else {
-smalltalk.send(result,"_addAll_",[smalltalk.send(smalltalk.send(self,"_superclass",[]),"_allInstanceVariableNames",[])]);
+_st(result)._addAll_(_st(_st(self)._superclass())._allInstanceVariableNames());
 };
-return result;
-}
+$2=result;
+return $2;
+}, function($ctx1) {$ctx1.fill(self,"allInstanceVariableNames",{result:result}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -45,12 +45,14 @@ selector: "allSubclasses",
 fn: function (){
 var self=this;
 var result;
-result=smalltalk.send(self,"_subclasses",[]);
-smalltalk.send(smalltalk.send(self,"_subclasses",[]),"_do_",[(function(each){
-return smalltalk.send(result,"_addAll_",[smalltalk.send(each,"_allSubclasses",[])]);
-})]);
-return result;
-}
+return smalltalk.withContext(function($ctx1) { 
+result=_st(self)._subclasses();
+_st(_st(self)._subclasses())._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+$1=result;
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"allSubclasses",{result:result}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -60,19 +62,30 @@ smalltalk.method({
 selector: "allSuperclasses",
 fn: function (){
 var self=this;
-var $1,$3,$4,$2;
-$1=smalltalk.send(self,"_superclass",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._superclass();
 if(($receiver = $1) == nil || $receiver == undefined){
 return [];
 } else {
 $1;
 };
-$3=smalltalk.send((smalltalk.OrderedCollection || OrderedCollection),"_with_",[smalltalk.send(self,"_superclass",[])]);
-smalltalk.send($3,"_addAll_",[smalltalk.send(smalltalk.send(self,"_superclass",[]),"_allSuperclasses",[])]);
-$4=smalltalk.send($3,"_yourself",[]);
+$3=_st((smalltalk.OrderedCollection || OrderedCollection))._with_(_st(self)._superclass());
+_st($3)._addAll_(_st(_st(self)._superclass())._allSuperclasses());
+$4=_st($3)._yourself();
 $2=$4;
 return $2;
-}
+}, function($ctx1) {$ctx1.fill(self,"allSuperclasses",{}, smalltalk.Behavior)})}
+}),
+smalltalk.Behavior);
+
+smalltalk.addMethod(
+"_basicAddCompiledMethod_",
+smalltalk.method({
+selector: "basicAddCompiledMethod:",
+fn: function (aMethod){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"basicAddCompiledMethod:",{aMethod:aMethod}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -82,9 +95,22 @@ smalltalk.method({
 selector: "basicNew",
 fn: function (){
 var self=this;
-return new self.fn();
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"basicNew",{}, smalltalk.Behavior)})}
+}),
+smalltalk.Behavior);
+
+smalltalk.addMethod(
+"_basicRemoveCompiledMethod_",
+smalltalk.method({
+selector: "basicRemoveCompiledMethod:",
+fn: function (aMethod){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+    	smalltalk.removeMethod(aMethod)
+		smalltalk.init(self);
+    ;
+return self}, function($ctx1) {$ctx1.fill(self,"basicRemoveCompiledMethod:",{aMethod:aMethod}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -94,14 +120,14 @@ smalltalk.method({
 selector: "canUnderstand:",
 fn: function (aSelector){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_methodDictionary",[]),"_keys",[]),"_includes_",[smalltalk.send(aSelector,"_asString",[])]),"_or_",[(function(){
-return smalltalk.send(smalltalk.send(smalltalk.send(self,"_superclass",[]),"_notNil",[]),"_and_",[(function(){
-return smalltalk.send(smalltalk.send(self,"_superclass",[]),"_canUnderstand_",[aSelector]);
-})]);
-})]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(_st(_st(self)._methodDictionary())._keys())._includes_(_st(aSelector)._asString()))._or_((function(){
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"canUnderstand:",{aSelector:aSelector}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -111,15 +137,15 @@ smalltalk.method({
 selector: "comment",
 fn: function (){
 var self=this;
-var $2,$1;
-$2=smalltalk.send(self,"_basicAt_",["comment"]);
+return smalltalk.withContext(function($ctx1) { 
+$2=_st(self)._basicAt_("comment");
 if(($receiver = $2) == nil || $receiver == undefined){
 $1="";
 } else {
 $1=$2;
 };
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"comment",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -129,13 +155,13 @@ smalltalk.method({
 selector: "comment:",
 fn: function (aString){
 var self=this;
-var $1,$2;
-smalltalk.send(self,"_basicAt_put_",["comment",aString]);
-$1=smalltalk.send((smalltalk.ClassCommentChanged || ClassCommentChanged),"_new",[]);
-smalltalk.send($1,"_theClass_",[self]);
-$2=smalltalk.send($1,"_yourself",[]);
-smalltalk.send(smalltalk.send((smalltalk.SystemAnnouncer || SystemAnnouncer),"_current",[]),"_announce_",[$2]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._basicAt_put_("comment",aString);
+$1=_st((smalltalk.ClassCommentChanged || ClassCommentChanged))._new();
+_st($1)._theClass_(self);
+$2=_st($1)._yourself();
+_st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
+return self}, function($ctx1) {$ctx1.fill(self,"comment:",{aString:aString}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -145,13 +171,13 @@ smalltalk.method({
 selector: "commentStamp",
 fn: function (){
 var self=this;
-var $2,$3,$1;
-$2=smalltalk.send((smalltalk.ClassCommentReader || ClassCommentReader),"_new",[]);
-smalltalk.send($2,"_class_",[self]);
-$3=smalltalk.send($2,"_yourself",[]);
+return smalltalk.withContext(function($ctx1) { 
+$2=_st((smalltalk.ClassCommentReader || ClassCommentReader))._new();
+_st($2)._class_(self);
+$3=_st($2)._yourself();
 $1=$3;
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"commentStamp",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -161,10 +187,10 @@ smalltalk.method({
 selector: "commentStamp:prior:",
 fn: function (aStamp,prior){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_commentStamp",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._commentStamp();
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"commentStamp:prior:",{aStamp:aStamp,prior:prior}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -174,8 +200,8 @@ smalltalk.method({
 selector: "compile:",
 fn: function (aString){
 var self=this;
-smalltalk.send(self,"_compile_category_",[aString,""]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"compile:",{aString:aString}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -185,8 +211,8 @@ smalltalk.method({
 selector: "compile:category:",
 fn: function (aString,anotherString){
 var self=this;
-smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler),"_new",[]),"_install_forClass_category_",[aString,self,anotherString]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"compile:category:",{aString:aString,anotherString:anotherString}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -196,8 +222,21 @@ smalltalk.method({
 selector: "definition",
 fn: function (){
 var self=this;
-return "";
-}
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"definition",{}, smalltalk.Behavior)})}
+}),
+smalltalk.Behavior);
+
+smalltalk.addMethod(
+"_includesSelector_",
+smalltalk.method({
+selector: "includesSelector:",
+fn: function (aSymbol){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._methodDictionary())._includesKey_(_st(aSymbol)._asString());
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"includesSelector:",{aSymbol:aSymbol}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -207,10 +246,10 @@ smalltalk.method({
 selector: "inheritsFrom:",
 fn: function (aClass){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(aClass,"_allSubclasses",[]),"_includes_",[self]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(aClass)._allSubclasses())._includes_(self);
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"inheritsFrom:",{aClass:aClass}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -220,9 +259,39 @@ smalltalk.method({
 selector: "instanceVariableNames",
 fn: function (){
 var self=this;
-return self.iVarNames;
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"instanceVariableNames",{}, smalltalk.Behavior)})}
+}),
+smalltalk.Behavior);
+
+smalltalk.addMethod(
+"_lookupSelector_",
+smalltalk.method({
+selector: "lookupSelector:",
+fn: function (selector){
+var self=this;
+var lookupClass;
+return smalltalk.withContext(function($ctx1) { 
+var $early={};
+try {
+lookupClass=self;
+$1=(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})});
+$2=(function(){
+return smalltalk.withContext(function($ctx2) {
+if(smalltalk.assert($3)){
+$4=_st(lookupClass)._methodAt_(selector);
+throw $early=[$4];
+};
+lookupClass=_st(lookupClass)._superclass();
+return lookupClass;
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})});
+_st($1)._whileFalse_($2);
+return nil;
+}
+catch(e) {if(e===$early)return e[0]; throw e}
+}, function($ctx1) {$ctx1.fill(self,"lookupSelector:",{selector:selector,lookupClass:lookupClass}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -232,9 +301,10 @@ smalltalk.method({
 selector: "methodAt:",
 fn: function (aSymbol){
 var self=this;
-return smalltalk.methods(self)[aSymbol._asString()];
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._methodDictionary())._at_(_st(aSymbol)._asString());
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"methodAt:",{aSymbol:aSymbol}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -244,16 +314,15 @@ smalltalk.method({
 selector: "methodDictionary",
 fn: function (){
 var self=this;
-var dict = smalltalk.HashedCollection._new();
-	var methods = self.fn.prototype.methods;
+return smalltalk.withContext(function($ctx1) { 
+	var methods = self.methods;
 	for(var i in methods) {
 		if(methods[i].selector) {
 			dict._at_put_(methods[i].selector, methods[i]);
 		}
 	};
 	return dict;
-;
-return self}
+return self}, function($ctx1) {$ctx1.fill(self,"methodDictionary",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -263,10 +332,10 @@ smalltalk.method({
 selector: "methods",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(self,"_methodDictionary",[]),"_values",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._methodDictionary())._values();
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"methods",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -276,13 +345,13 @@ smalltalk.method({
 selector: "methodsFor:",
 fn: function (aString){
 var self=this;
-var $2,$3,$1;
-$2=smalltalk.send((smalltalk.ClassCategoryReader || ClassCategoryReader),"_new",[]);
-smalltalk.send($2,"_class_category_",[self,aString]);
-$3=smalltalk.send($2,"_yourself",[]);
+return smalltalk.withContext(function($ctx1) { 
+$2=_st((smalltalk.ClassCategoryReader || ClassCategoryReader))._new();
+_st($2)._class_category_(self,aString);
+$3=_st($2)._yourself();
 $1=$3;
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"methodsFor:",{aString:aString}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -292,10 +361,10 @@ smalltalk.method({
 selector: "methodsFor:stamp:",
 fn: function (aString,aStamp){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_methodsFor_",[aString]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._methodsFor_(aString);
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"methodsFor:stamp:",{aString:aString,aStamp:aStamp}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -305,12 +374,12 @@ smalltalk.method({
 selector: "methodsInProtocol:",
 fn: function (aString){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(smalltalk.send(self,"_methodDictionary",[]),"_values",[]),"_select_",[(function(each){
-return smalltalk.send(smalltalk.send(each,"_protocol",[]),"__eq",[aString]);
-})]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(_st(self)._methodDictionary())._values())._select_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"methodsInProtocol:",{aString:aString}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -320,9 +389,8 @@ smalltalk.method({
 selector: "name",
 fn: function (){
 var self=this;
-return self.className || nil;
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"name",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -332,10 +400,10 @@ smalltalk.method({
 selector: "new",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(self,"_basicNew",[]),"_initialize",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._basicNew())._initialize();
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"new",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -345,10 +413,10 @@ smalltalk.method({
 selector: "organization",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_basicAt_",["organization"]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._basicAt_("organization");
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"organization",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -358,10 +426,10 @@ smalltalk.method({
 selector: "protocols",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(smalltalk.send(self,"_organization",[]),"_elements",[]),"_sorted",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(_st(self)._organization())._elements())._sorted();
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"protocols",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -372,16 +440,16 @@ selector: "protocolsDo:",
 fn: function (aBlock){
 var self=this;
 var methodsByCategory;
-methodsByCategory=smalltalk.send((smalltalk.HashedCollection || HashedCollection),"_new",[]);
-smalltalk.send(smalltalk.send(smalltalk.send(self,"_methodDictionary",[]),"_values",[]),"_do_",[(function(m){
-return smalltalk.send(smalltalk.send(methodsByCategory,"_at_ifAbsentPut_",[smalltalk.send(m,"_category",[]),(function(){
-return smalltalk.send((smalltalk.Array || Array),"_new",[]);
-})]),"_add_",[m]);
-})]);
-smalltalk.send(smalltalk.send(self,"_protocols",[]),"_do_",[(function(category){
-return smalltalk.send(aBlock,"_value_value_",[category,smalltalk.send(methodsByCategory,"_at_",[category])]);
-})]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(_st(self)._methodDictionary())._values())._do_((function(m){
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})})))._add_(m);
+}, function($ctx2) {$ctx2.fillBlock({m:m},$ctx1)})}));
+_st(_st(self)._protocols())._do_((function(category){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({category:category},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"protocolsDo:",{aBlock:aBlock,methodsByCategory:methodsByCategory}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -391,9 +459,8 @@ smalltalk.method({
 selector: "prototype",
 fn: function (){
 var self=this;
-return self.fn.prototype;
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"prototype",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -403,18 +470,14 @@ smalltalk.method({
 selector: "removeCompiledMethod:",
 fn: function (aMethod){
 var self=this;
-var $1,$2;
-
-    	smalltalk.removeMethod(aMethod)
-		smalltalk.init(self);
-    ;
-;
-$1=smalltalk.send((smalltalk.MethodRemoved || MethodRemoved),"_new",[]);
-smalltalk.send($1,"_theClass_",[self]);
-smalltalk.send($1,"_method_",[aMethod]);
-$2=smalltalk.send($1,"_yourself",[]);
-smalltalk.send(smalltalk.send((smalltalk.SystemAnnouncer || SystemAnnouncer),"_current",[]),"_announce_",[$2]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._basicRemoveCompiledMethod_(aMethod);
+$1=_st((smalltalk.MethodRemoved || MethodRemoved))._new();
+_st($1)._theClass_(self);
+_st($1)._method_(aMethod);
+$2=_st($1)._yourself();
+_st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
+return self}, function($ctx1) {$ctx1.fill(self,"removeCompiledMethod:",{aMethod:aMethod}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -424,10 +487,10 @@ smalltalk.method({
 selector: "selectors",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(self,"_methodDictionary",[]),"_keys",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._methodDictionary())._keys();
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"selectors",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -437,9 +500,8 @@ smalltalk.method({
 selector: "subclasses",
 fn: function (){
 var self=this;
-return smalltalk.subclasses(self);
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"subclasses",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -449,9 +511,8 @@ smalltalk.method({
 selector: "superclass",
 fn: function (){
 var self=this;
-return self.superclass || nil;
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"superclass",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -461,10 +522,10 @@ smalltalk.method({
 selector: "theMetaClass",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_class",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._class();
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"theMetaClass",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -474,8 +535,10 @@ smalltalk.method({
 selector: "theNonMetaClass",
 fn: function (){
 var self=this;
-return self;
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"theNonMetaClass",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -485,13 +548,13 @@ smalltalk.method({
 selector: "withAllSubclasses",
 fn: function (){
 var self=this;
-var $2,$3,$1;
-$2=smalltalk.send((smalltalk.Array || Array),"_with_",[self]);
-smalltalk.send($2,"_addAll_",[smalltalk.send(self,"_allSubclasses",[])]);
-$3=smalltalk.send($2,"_yourself",[]);
+return smalltalk.withContext(function($ctx1) { 
+$2=_st((smalltalk.Array || Array))._with_(self);
+_st($2)._addAll_(_st(self)._allSubclasses());
+$3=_st($2)._yourself();
 $1=$3;
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"withAllSubclasses",{}, smalltalk.Behavior)})}
 }),
 smalltalk.Behavior);
 
@@ -504,10 +567,10 @@ smalltalk.method({
 selector: "asJavascript",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send("smalltalk.","__comma",[smalltalk.send(self,"_name",[])]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st("smalltalk.").__comma(_st(self)._name());
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"asJavascript",{}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -517,15 +580,15 @@ smalltalk.method({
 selector: "category",
 fn: function (){
 var self=this;
-var $2,$1;
-$2=smalltalk.send(self,"_package",[]);
+return smalltalk.withContext(function($ctx1) { 
+$2=_st(self)._package();
 if(($receiver = $2) == nil || $receiver == undefined){
 $1="Unclassified";
 } else {
-$1=smalltalk.send(smalltalk.send(self,"_package",[]),"_name",[]);
+$1=_st(_st(self)._package())._name();
 };
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"category",{}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -535,27 +598,29 @@ smalltalk.method({
 selector: "definition",
 fn: function (){
 var self=this;
-var $2,$3,$1;
-$1=smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(stream){
-smalltalk.send(stream,"_nextPutAll_",[smalltalk.send(smalltalk.send(self,"_superclass",[]),"_asString",[])]);
-smalltalk.send(stream,"_nextPutAll_",[" subclass: #"]);
-smalltalk.send(stream,"_nextPutAll_",[smalltalk.send(self,"_name",[])]);
-smalltalk.send(stream,"_nextPutAll_",[smalltalk.send(smalltalk.send((smalltalk.String || String),"_lf",[]),"__comma",[smalltalk.send((smalltalk.String || String),"_tab",[])])]);
-$2=smalltalk.send(stream,"_nextPutAll_",["instanceVariableNames: '"]);
-$2;
-smalltalk.send(smalltalk.send(self,"_instanceVariableNames",[]),"_do_separatedBy_",[(function(each){
-return smalltalk.send(stream,"_nextPutAll_",[each]);
-}),(function(){
-return smalltalk.send(stream,"_nextPutAll_",[" "]);
-})]);
-smalltalk.send(stream,"_nextPutAll_",[smalltalk.send(smalltalk.send("'","__comma",[smalltalk.send((smalltalk.String || String),"_lf",[])]),"__comma",[smalltalk.send((smalltalk.String || String),"_tab",[])])]);
-smalltalk.send(stream,"_nextPutAll_",["package: '"]);
-smalltalk.send(stream,"_nextPutAll_",[smalltalk.send(self,"_category",[])]);
-$3=smalltalk.send(stream,"_nextPutAll_",["'"]);
-return $3;
-})]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st((smalltalk.String || String))._streamContents_((function(stream){
+return smalltalk.withContext(function($ctx2) {
+_st($2)._nextPutAll_(_st(_st(self)._superclass())._asString());
+_st($2)._nextPutAll_(" subclass: #");
+_st($2)._nextPutAll_(_st(self)._name());
+_st($2)._nextPutAll_(_st(_st((smalltalk.String || String))._lf()).__comma(_st((smalltalk.String || String))._tab()));
+$3=_st($2)._nextPutAll_("instanceVariableNames: '");
+$3;
+_st(_st(self)._instanceVariableNames())._do_separatedBy_((function(each){
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}),(function(){
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
+$4=stream;
+_st($4)._nextPutAll_(_st(_st("'").__comma(_st((smalltalk.String || String))._lf())).__comma(_st((smalltalk.String || String))._tab()));
+_st($4)._nextPutAll_("package: '");
+_st($4)._nextPutAll_(_st(self)._category());
+$5=_st($4)._nextPutAll_("'");
+return $5;
+}, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"definition",{}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -565,8 +630,8 @@ smalltalk.method({
 selector: "isClass",
 fn: function (){
 var self=this;
-return true;
-}
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"isClass",{}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -576,9 +641,8 @@ smalltalk.method({
 selector: "package",
 fn: function (){
 var self=this;
-return self.pkg;
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"package",{}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -588,9 +652,8 @@ smalltalk.method({
 selector: "package:",
 fn: function (aPackage){
 var self=this;
-self.pkg = aPackage;
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"package:",{aPackage:aPackage}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -600,10 +663,10 @@ smalltalk.method({
 selector: "printString",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_name",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._name();
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -613,8 +676,8 @@ smalltalk.method({
 selector: "rename:",
 fn: function (aString){
 var self=this;
-smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder),"_new",[]),"_renameClass_to_",[self,aString]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"rename:",{aString:aString}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -624,10 +687,10 @@ smalltalk.method({
 selector: "subclass:instanceVariableNames:",
 fn: function (aString,anotherString){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_subclass_instanceVariableNames_package_",[aString,anotherString,nil]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._subclass_instanceVariableNames_package_(aString,anotherString,nil);
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:",{aString:aString,anotherString:anotherString}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -637,11 +700,11 @@ smalltalk.method({
 selector: "subclass:instanceVariableNames:category:",
 fn: function (aString,aString2,aString3){
 var self=this;
-var $1;
-smalltalk.send(self,"_deprecatedAPI",[]);
-$1=smalltalk.send(self,"_subclass_instanceVariableNames_package_",[aString,aString2,aString3]);
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deprecatedAPI();
+$1=_st(self)._subclass_instanceVariableNames_package_(aString,aString2,aString3);
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:category:",{aString:aString,aString2:aString2,aString3:aString3}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -651,10 +714,10 @@ smalltalk.method({
 selector: "subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:",
 fn: function (aString,aString2,classVars,pools,aString3){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_subclass_instanceVariableNames_package_",[aString,aString2,aString3]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._subclass_instanceVariableNames_package_(aString,aString2,aString3);
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:",{aString:aString,aString2:aString2,classVars:classVars,pools:pools,aString3:aString3}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -664,10 +727,10 @@ smalltalk.method({
 selector: "subclass:instanceVariableNames:package:",
 fn: function (aString,aString2,aString3){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder),"_new",[]),"_superclass_subclass_instanceVariableNames_package_",[self,smalltalk.send(aString,"_asString",[]),aString2,aString3]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st((smalltalk.ClassBuilder || ClassBuilder))._new())._superclass_subclass_instanceVariableNames_package_(self,_st(aString)._asString(),aString2,aString3);
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:package:",{aString:aString,aString2:aString2,aString3:aString3}, smalltalk.Class)})}
 }),
 smalltalk.Class);
 
@@ -680,10 +743,10 @@ smalltalk.method({
 selector: "asJavascript",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send("smalltalk.","__comma",[smalltalk.send(smalltalk.send(self,"_instanceClass",[]),"_name",[])]),"__comma",[".klass"]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st("smalltalk.").__comma(_st(_st(self)._instanceClass())._name())).__comma(".klass");
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"asJavascript",{}, smalltalk.Metaclass)})}
 }),
 smalltalk.Metaclass);
 
@@ -693,21 +756,22 @@ smalltalk.method({
 selector: "definition",
 fn: function (){
 var self=this;
-var $2,$1;
-$1=smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(stream){
-smalltalk.send(stream,"_nextPutAll_",[smalltalk.send(self,"_asString",[])]);
-smalltalk.send(stream,"_nextPutAll_",[" class "]);
-$2=smalltalk.send(stream,"_nextPutAll_",["instanceVariableNames: '"]);
-$2;
-smalltalk.send(smalltalk.send(self,"_instanceVariableNames",[]),"_do_separatedBy_",[(function(each){
-return smalltalk.send(stream,"_nextPutAll_",[each]);
-}),(function(){
-return smalltalk.send(stream,"_nextPutAll_",[" "]);
-})]);
-return smalltalk.send(stream,"_nextPutAll_",["'"]);
-})]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st((smalltalk.String || String))._streamContents_((function(stream){
+return smalltalk.withContext(function($ctx2) {
+_st($2)._nextPutAll_(_st(self)._asString());
+_st($2)._nextPutAll_(" class ");
+$3=_st($2)._nextPutAll_("instanceVariableNames: '");
+$3;
+_st(_st(self)._instanceVariableNames())._do_separatedBy_((function(each){
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}),(function(){
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
+return _st(stream)._nextPutAll_("'");
+}, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"definition",{}, smalltalk.Metaclass)})}
 }),
 smalltalk.Metaclass);
 
@@ -717,9 +781,8 @@ smalltalk.method({
 selector: "instanceClass",
 fn: function (){
 var self=this;
-return self.instanceClass;
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"instanceClass",{}, smalltalk.Metaclass)})}
 }),
 smalltalk.Metaclass);
 
@@ -729,8 +792,8 @@ smalltalk.method({
 selector: "instanceVariableNames:",
 fn: function (aCollection){
 var self=this;
-smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder),"_new",[]),"_class_instanceVariableNames_",[self,aCollection]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"instanceVariableNames:",{aCollection:aCollection}, smalltalk.Metaclass)})}
 }),
 smalltalk.Metaclass);
 
@@ -740,8 +803,8 @@ smalltalk.method({
 selector: "isMetaclass",
 fn: function (){
 var self=this;
-return true;
-}
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"isMetaclass",{}, smalltalk.Metaclass)})}
 }),
 smalltalk.Metaclass);
 
@@ -751,10 +814,10 @@ smalltalk.method({
 selector: "printString",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(smalltalk.send(self,"_instanceClass",[]),"_name",[]),"__comma",[" class"]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(_st(self)._instanceClass())._name()).__comma(" class");
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.Metaclass)})}
 }),
 smalltalk.Metaclass);
 
@@ -764,8 +827,10 @@ smalltalk.method({
 selector: "theMetaClass",
 fn: function (){
 var self=this;
-return self;
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"theMetaClass",{}, smalltalk.Metaclass)})}
 }),
 smalltalk.Metaclass);
 
@@ -775,10 +840,10 @@ smalltalk.method({
 selector: "theNonMetaClass",
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_instanceClass",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._instanceClass();
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"theNonMetaClass",{}, smalltalk.Metaclass)})}
 }),
 smalltalk.Metaclass);
 
@@ -786,49 +851,106 @@ smalltalk.Metaclass);
 
 smalltalk.addClass('ClassBuilder', smalltalk.Object, [], 'Kernel-Classes');
 smalltalk.addMethod(
-"_addSubclassOf_named_instanceVariableNames_",
+"_addSubclassOf_named_instanceVariableNames_package_",
 smalltalk.method({
-selector: "addSubclassOf:named:instanceVariableNames:",
-fn: function (aClass,aString,aCollection){
+selector: "addSubclassOf:named:instanceVariableNames:package:",
+fn: function (aClass,aString,aCollection,packageName){
 var self=this;
-smalltalk.addClass(aString, aClass, aCollection);
-	    return smalltalk[aString];
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(aString);
+if(($receiver = $1) == nil || $receiver == undefined){
+$1;
+} else {
+$2=_st(self)._migrateClassNamed_superclass_instanceVariableNames_package_(aString,aClass,aCollection,packageName);
+return $2;
+};
+$3=_st(self)._basicAddSubclassOf_named_instanceVariableNames_package_(aClass,aString,aCollection,packageName);
+return $3;
+}, function($ctx1) {$ctx1.fill(self,"addSubclassOf:named:instanceVariableNames:package:",{aClass:aClass,aString:aString,aCollection:aCollection,packageName:packageName}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_addSubclassOf_named_instanceVariableNames_package_",
+"_basicAddSubclassOf_named_instanceVariableNames_package_",
 smalltalk.method({
-selector: "addSubclassOf:named:instanceVariableNames:package:",
+selector: "basicAddSubclassOf:named:instanceVariableNames:package:",
 fn: function (aClass,aString,aCollection,packageName){
 var self=this;
-smalltalk.addClass(aString, aClass, aCollection, packageName);
-	    return smalltalk[aString];
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+		smalltalk.addClass(aString, aClass, aCollection, packageName);
+		return smalltalk[aString]
+	;
+return self}, function($ctx1) {$ctx1.fill(self,"basicAddSubclassOf:named:instanceVariableNames:package:",{aClass:aClass,aString:aString,aCollection:aCollection,packageName:packageName}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_class_instanceVariableNames_",
+"_basicClass_instanceVariableNames_",
 smalltalk.method({
-selector: "class:instanceVariableNames:",
+selector: "basicClass:instanceVariableNames:",
 fn: function (aClass,aString){
 var self=this;
-var $1,$2,$3;
-$1=smalltalk.send(aClass,"_isMetaclass",[]);
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"basicClass:instanceVariableNames:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})}
+}),
+smalltalk.ClassBuilder);
+
+smalltalk.addMethod(
+"_basicClass_instanceVariables_",
+smalltalk.method({
+selector: "basicClass:instanceVariables:",
+fn: function (aClass,aCollection){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(aClass)._isMetaclass();
 if(! smalltalk.assert($1)){
-smalltalk.send(self,"_error_",[smalltalk.send(smalltalk.send(aClass,"_name",[]),"__comma",[" is not a metaclass"])]);
+_st(self)._error_(_st(_st(aClass)._name()).__comma(" is not a metaclass"));
 };
-smalltalk.send(aClass,"_basicAt_put_",["iVarNames",smalltalk.send(self,"_instanceVariableNamesFor_",[aString])]);
-$2=smalltalk.send((smalltalk.ClassDefinitionChanged || ClassDefinitionChanged),"_new",[]);
-smalltalk.send($2,"_theClass_",[aClass]);
-$3=smalltalk.send($2,"_yourself",[]);
-smalltalk.send(smalltalk.send((smalltalk.SystemAnnouncer || SystemAnnouncer),"_current",[]),"_announce_",[$3]);
-smalltalk.send(self,"_setupClass_",[aClass]);
-return self}
+_st(aClass)._basicAt_put_("iVarNames",aCollection);
+return self}, function($ctx1) {$ctx1.fill(self,"basicClass:instanceVariables:",{aClass:aClass,aCollection:aCollection}, smalltalk.ClassBuilder)})}
+}),
+smalltalk.ClassBuilder);
+
+smalltalk.addMethod(
+"_basicRemoveClass_",
+smalltalk.method({
+selector: "basicRemoveClass:",
+fn: function (aClass){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"basicRemoveClass:",{aClass:aClass}, smalltalk.ClassBuilder)})}
+}),
+smalltalk.ClassBuilder);
+
+smalltalk.addMethod(
+"_basicRenameClass_to_",
+smalltalk.method({
+selector: "basicRenameClass:to:",
+fn: function (aClass,aString){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+		smalltalk[aString] = aClass;
+		delete smalltalk[aClass.className];
+		aClass.className = aString;
+	;
+return self}, function($ctx1) {$ctx1.fill(self,"basicRenameClass:to:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})}
+}),
+smalltalk.ClassBuilder);
+
+smalltalk.addMethod(
+"_class_instanceVariableNames_",
+smalltalk.method({
+selector: "class:instanceVariableNames:",
+fn: function (aClass,aString){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._basicClass_instanceVariableNames_(aClass,aString);
+_st(self)._setupClass_(aClass);
+$1=_st((smalltalk.ClassDefinitionChanged || ClassDefinitionChanged))._new();
+_st($1)._theClass_(aClass);
+$2=_st($1)._yourself();
+_st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
+return self}, function($ctx1) {$ctx1.fill(self,"class:instanceVariableNames:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
@@ -839,17 +961,47 @@ selector: "copyClass:named:",
 fn: function (aClass,aString){
 var self=this;
 var newClass;
-newClass=smalltalk.send(self,"_addSubclassOf_named_instanceVariableNames_package_",[smalltalk.send(aClass,"_superclass",[]),aString,smalltalk.send(aClass,"_instanceVariableNames",[]),smalltalk.send(smalltalk.send(aClass,"_package",[]),"_name",[])]);
-smalltalk.send(self,"_setupClass_",[newClass]);
-smalltalk.send(smalltalk.send(smalltalk.send(aClass,"_methodDictionary",[]),"_values",[]),"_do_",[(function(each){
-return smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler),"_new",[]),"_install_forClass_category_",[smalltalk.send(each,"_source",[]),newClass,smalltalk.send(each,"_category",[])]);
-})]);
-smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aClass,"_class",[]),"_methodDictionary",[]),"_values",[]),"_do_",[(function(each){
-return smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler),"_new",[]),"_install_forClass_category_",[smalltalk.send(each,"_source",[]),smalltalk.send(newClass,"_class",[]),smalltalk.send(each,"_category",[])]);
-})]);
-smalltalk.send(self,"_setupClass_",[newClass]);
-return newClass;
-}
+return smalltalk.withContext(function($ctx1) { 
+newClass=_st(self)._addSubclassOf_named_instanceVariableNames_package_(_st(aClass)._superclass(),aString,_st(aClass)._instanceVariableNames(),_st(_st(aClass)._package())._name());
+_st(self)._copyClass_to_(aClass,newClass);
+$1=newClass;
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"copyClass:named:",{aClass:aClass,aString:aString,newClass:newClass}, smalltalk.ClassBuilder)})}
+}),
+smalltalk.ClassBuilder);
+
+smalltalk.addMethod(
+"_copyClass_to_",
+smalltalk.method({
+selector: "copyClass:to:",
+fn: function (aClass,anotherClass){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(_st(aClass)._methodDictionary())._values())._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+_st(_st(_st(_st(aClass)._class())._methodDictionary())._values())._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+_st(self)._basicClass_instanceVariables_(_st(anotherClass)._class(),_st(_st(aClass)._class())._instanceVariableNames());
+_st(self)._setupClass_(anotherClass);
+return self}, function($ctx1) {$ctx1.fill(self,"copyClass:to:",{aClass:aClass,anotherClass:anotherClass}, smalltalk.ClassBuilder)})}
+}),
+smalltalk.ClassBuilder);
+
+smalltalk.addMethod(
+"_installMethod_forClass_category_",
+smalltalk.method({
+selector: "installMethod:forClass:category:",
+fn: function (aCompiledMethod,aBehavior,aString){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+_st(aCompiledMethod)._category_(aString);
+_st(aBehavior)._addCompiledMethod_(aCompiledMethod);
+_st(self)._setupClass_(aBehavior);
+$1=aCompiledMethod;
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"installMethod:forClass:category:",{aCompiledMethod:aCompiledMethod,aBehavior:aBehavior,aString:aString}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
@@ -859,12 +1011,53 @@ smalltalk.method({
 selector: "instanceVariableNamesFor:",
 fn: function (aString){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(aString,"_tokenize_",[" "]),"_reject_",[(function(each){
-return smalltalk.send(each,"_isEmpty",[]);
-})]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(aString)._tokenize_(" "))._reject_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"instanceVariableNamesFor:",{aString:aString}, smalltalk.ClassBuilder)})}
+}),
+smalltalk.ClassBuilder);
+
+smalltalk.addMethod(
+"_migrateClass_superclass_",
+smalltalk.method({
+selector: "migrateClass:superclass:",
+fn: function (aClass,anotherClass){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"migrateClass:superclass:",{aClass:aClass,anotherClass:anotherClass}, smalltalk.ClassBuilder)})}
+}),
+smalltalk.ClassBuilder);
+
+smalltalk.addMethod(
+"_migrateClassNamed_superclass_instanceVariableNames_package_",
+smalltalk.method({
+selector: "migrateClassNamed:superclass:instanceVariableNames:package:",
+fn: function (aString,aClass,aCollection,packageName){
+var self=this;
+var oldClass,newClass;
+return smalltalk.withContext(function($ctx1) { 
+oldClass=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(aString);
+_st(self)._basicRenameClass_to_(oldClass,_st("Old").__comma(aString));
+newClass=_st(self)._addSubclassOf_named_instanceVariableNames_package_(aClass,aString,aCollection,packageName);
+_st(_st(oldClass)._subclasses())._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_((smalltalk.Error || Error),(function(exception){
+return smalltalk.withContext(function($ctx2) {
+_st($1)._basicRemoveClass_(newClass);
+$2=_st($1)._basicRenameClass_to_(oldClass,aString);
+$2;
+return _st(exception)._signal();
+}, function($ctx2) {$ctx2.fillBlock({exception:exception},$ctx1)})}));
+_st(self)._basicRemoveClass_(oldClass);
+$3=newClass;
+return $3;
+}, function($ctx1) {$ctx1.fill(self,"migrateClassNamed:superclass:instanceVariableNames:package:",{aString:aString,aClass:aClass,aCollection:aCollection,packageName:packageName,oldClass:oldClass,newClass:newClass}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
@@ -874,18 +1067,13 @@ smalltalk.method({
 selector: "renameClass:to:",
 fn: function (aClass,aString){
 var self=this;
-var $1,$2;
-
-		smalltalk[aString] = aClass;
-		delete smalltalk[aClass.className];
-		aClass.className = aString;
-	;
-;
-$1=smalltalk.send((smalltalk.ClassRenamed || ClassRenamed),"_new",[]);
-smalltalk.send($1,"_theClass_",[aClass]);
-$2=smalltalk.send($1,"_yourself",[]);
-smalltalk.send(smalltalk.send((smalltalk.SystemAnnouncer || SystemAnnouncer),"_current",[]),"_announce_",[$2]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._basicRenameClass_to_(aClass,aString);
+$1=_st((smalltalk.ClassRenamed || ClassRenamed))._new();
+_st($1)._theClass_(aClass);
+$2=_st($1)._yourself();
+_st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
+return self}, function($ctx1) {$ctx1.fill(self,"renameClass:to:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
@@ -895,9 +1083,8 @@ smalltalk.method({
 selector: "setupClass:",
 fn: function (aClass){
 var self=this;
-smalltalk.init(aClass);;
-;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"setupClass:",{aClass:aClass}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
@@ -907,10 +1094,10 @@ smalltalk.method({
 selector: "superclass:subclass:",
 fn: function (aClass,aString){
 var self=this;
-var $1;
-$1=smalltalk.send(self,"_superclass_subclass_instanceVariableNames_package_",[aClass,aString,"",nil]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._superclass_subclass_instanceVariableNames_package_(aClass,aString,"",nil);
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"superclass:subclass:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
@@ -920,36 +1107,42 @@ smalltalk.method({
 selector: "superclass:subclass:instanceVariableNames:package:",
 fn: function (aClass,aString,aString2,aString3){
 var self=this;
-var $1,$2,$3;
 var newClass;
-if(($receiver = aString3) == nil || $receiver == undefined){
-$1="unclassified";
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
+$2=aClass;
+$3=aString;
+$4=_st(self)._instanceVariableNamesFor_(aString2);
+$6=aString3;
+if(($receiver = $6) == nil || $receiver == undefined){
+$5="unclassified";
 } else {
-$1=aString3;
+$5=$6;
 };
-newClass=smalltalk.send(self,"_addSubclassOf_named_instanceVariableNames_package_",[aClass,aString,smalltalk.send(self,"_instanceVariableNamesFor_",[aString2]),$1]);
-smalltalk.send(self,"_setupClass_",[newClass]);
-$2=smalltalk.send((smalltalk.ClassAdded || ClassAdded),"_new",[]);
-smalltalk.send($2,"_theClass_",[newClass]);
-$3=smalltalk.send($2,"_yourself",[]);
-smalltalk.send(smalltalk.send((smalltalk.SystemAnnouncer || SystemAnnouncer),"_current",[]),"_announce_",[$3]);
-return newClass;
-}
+newClass=_st($1)._addSubclassOf_named_instanceVariableNames_package_($2,$3,$4,$5);
+_st(self)._setupClass_(newClass);
+$7=_st((smalltalk.ClassAdded || ClassAdded))._new();
+_st($7)._theClass_(newClass);
+$8=_st($7)._yourself();
+_st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($8);
+$9=newClass;
+return $9;
+}, function($ctx1) {$ctx1.fill(self,"superclass:subclass:instanceVariableNames:package:",{aClass:aClass,aString:aString,aString2:aString2,aString3:aString3,newClass:newClass}, smalltalk.ClassBuilder)})}
 }),
 smalltalk.ClassBuilder);
 
 
 
-smalltalk.addClass('ClassCategoryReader', smalltalk.Object, ['class', 'category', 'chunkParser'], 'Kernel-Classes');
+smalltalk.addClass('ClassCategoryReader', smalltalk.Object, ['class', 'category'], 'Kernel-Classes');
 smalltalk.addMethod(
 "_class_category_",
 smalltalk.method({
 selector: "class:category:",
 fn: function (aClass,aString){
 var self=this;
-self["@class"]=aClass;
+return smalltalk.withContext(function($ctx1) { 
 self["@category"]=aString;
-return self}
+return self}, function($ctx1) {$ctx1.fill(self,"class:category:",{aClass:aClass,aString:aString}, smalltalk.ClassCategoryReader)})}
 }),
 smalltalk.ClassCategoryReader);
 
@@ -959,8 +1152,8 @@ smalltalk.method({
 selector: "compileMethod:",
 fn: function (aString){
 var self=this;
-smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler),"_new",[]),"_install_forClass_category_",[aString,self["@class"],self["@category"]]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:",{aString:aString}, smalltalk.ClassCategoryReader)})}
 }),
 smalltalk.ClassCategoryReader);
 
@@ -970,9 +1163,8 @@ smalltalk.method({
 selector: "initialize",
 fn: function (){
 var self=this;
-smalltalk.send(self,"_initialize",[],smalltalk.Object);
-self["@chunkParser"]=smalltalk.send((smalltalk.ChunkParser || ChunkParser),"_new",[]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"initialize",{}, smalltalk.ClassCategoryReader)})}
 }),
 smalltalk.ClassCategoryReader);
 
@@ -983,29 +1175,29 @@ selector: "scanFrom:",
 fn: function (aChunkParser){
 var self=this;
 var chunk;
-smalltalk.send((function(){
-chunk=smalltalk.send(aChunkParser,"_nextChunk",[]);
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
 chunk;
-return smalltalk.send(chunk,"_isEmpty",[]);
-}),"_whileFalse_",[(function(){
-return smalltalk.send(self,"_compileMethod_",[chunk]);
-})]);
-smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler),"_new",[]),"_setupClass_",[self["@class"]]);
-return self}
+return _st(chunk)._isEmpty();
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(_st((smalltalk.ClassBuilder || ClassBuilder))._new())._setupClass_(self["@class"]);
+return self}, function($ctx1) {$ctx1.fill(self,"scanFrom:",{aChunkParser:aChunkParser,chunk:chunk}, smalltalk.ClassCategoryReader)})}
 }),
 smalltalk.ClassCategoryReader);
 
 
 
-smalltalk.addClass('ClassCommentReader', smalltalk.Object, ['class', 'chunkParser'], 'Kernel-Classes');
+smalltalk.addClass('ClassCommentReader', smalltalk.Object, ['class'], 'Kernel-Classes');
 smalltalk.addMethod(
 "_class_",
 smalltalk.method({
 selector: "class:",
 fn: function (aClass){
 var self=this;
-self["@class"]=aClass;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"class:",{aClass:aClass}, smalltalk.ClassCommentReader)})}
 }),
 smalltalk.ClassCommentReader);
 
@@ -1015,9 +1207,8 @@ smalltalk.method({
 selector: "initialize",
 fn: function (){
 var self=this;
-smalltalk.send(self,"_initialize",[],smalltalk.Object);
-self["@chunkParser"]=smalltalk.send((smalltalk.ChunkParser || ChunkParser),"_new",[]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"initialize",{}, smalltalk.ClassCommentReader)})}
 }),
 smalltalk.ClassCommentReader);
 
@@ -1027,14 +1218,14 @@ smalltalk.method({
 selector: "scanFrom:",
 fn: function (aChunkParser){
 var self=this;
-var $1;
 var chunk;
-chunk=smalltalk.send(aChunkParser,"_nextChunk",[]);
-$1=smalltalk.send(chunk,"_isEmpty",[]);
+return smalltalk.withContext(function($ctx1) { 
+chunk=_st(aChunkParser)._nextChunk();
+$1=_st(chunk)._isEmpty();
 if(! smalltalk.assert($1)){
-smalltalk.send(self,"_setComment_",[chunk]);
+_st(self)._setComment_(chunk);
 };
-return self}
+return self}, function($ctx1) {$ctx1.fill(self,"scanFrom:",{aChunkParser:aChunkParser,chunk:chunk}, smalltalk.ClassCommentReader)})}
 }),
 smalltalk.ClassCommentReader);
 
@@ -1044,8 +1235,8 @@ smalltalk.method({
 selector: "setComment:",
 fn: function (aString){
 var self=this;
-smalltalk.send(self["@class"],"_comment_",[aString]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"setComment:",{aString:aString}, smalltalk.ClassCommentReader)})}
 }),
 smalltalk.ClassCommentReader);
 
@@ -1058,23 +1249,24 @@ smalltalk.method({
 selector: "getNodesFrom:",
 fn: function (aCollection){
 var self=this;
-var $1;
-var children;
-var others;
+var children,others;
+return smalltalk.withContext(function($ctx1) { 
 children=[];
 others=[];
-smalltalk.send(aCollection,"_do_",[(function(each){
-$1=smalltalk.send(smalltalk.send(each,"_superclass",[]),"__eq",[smalltalk.send(self,"_theClass",[])]);
-if(smalltalk.assert($1)){
-return smalltalk.send(children,"_add_",[each]);
+$1=aCollection;
+$2=(function(each){
+return smalltalk.withContext(function($ctx2) {
+if(smalltalk.assert($3)){
+return _st(children)._add_(each);
 } else {
-return smalltalk.send(others,"_add_",[each]);
+return _st(others)._add_(each);
 };
-})]);
-self["@nodes"]=smalltalk.send(children,"_collect_",[(function(each){
-return smalltalk.send((smalltalk.ClassSorterNode || ClassSorterNode),"_on_classes_level_",[each,others,smalltalk.send(smalltalk.send(self,"_level",[]),"__plus",[(1)])]);
-})]);
-return self}
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})});
+_st($1)._do_($2);
+self["@nodes"]=_st(children)._collect_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"getNodesFrom:",{aCollection:aCollection,children:children,others:others}, smalltalk.ClassSorterNode)})}
 }),
 smalltalk.ClassSorterNode);
 
@@ -1084,8 +1276,10 @@ smalltalk.method({
 selector: "level",
 fn: function (){
 var self=this;
-return self["@level"];
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@level"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"level",{}, smalltalk.ClassSorterNode)})}
 }),
 smalltalk.ClassSorterNode);
 
@@ -1095,8 +1289,8 @@ smalltalk.method({
 selector: "level:",
 fn: function (anInteger){
 var self=this;
-self["@level"]=anInteger;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"level:",{anInteger:anInteger}, smalltalk.ClassSorterNode)})}
 }),
 smalltalk.ClassSorterNode);
 
@@ -1106,8 +1300,10 @@ smalltalk.method({
 selector: "nodes",
 fn: function (){
 var self=this;
-return self["@nodes"];
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@nodes"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"nodes",{}, smalltalk.ClassSorterNode)})}
 }),
 smalltalk.ClassSorterNode);
 
@@ -1117,8 +1313,10 @@ smalltalk.method({
 selector: "theClass",
 fn: function (){
 var self=this;
-return self["@theClass"];
-}
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@theClass"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"theClass",{}, smalltalk.ClassSorterNode)})}
 }),
 smalltalk.ClassSorterNode);
 
@@ -1128,8 +1326,8 @@ smalltalk.method({
 selector: "theClass:",
 fn: function (aClass){
 var self=this;
-self["@theClass"]=aClass;
-return self}
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass}, smalltalk.ClassSorterNode)})}
 }),
 smalltalk.ClassSorterNode);
 
@@ -1139,13 +1337,13 @@ smalltalk.method({
 selector: "traverseClassesWith:",
 fn: function (aCollection){
 var self=this;
-smalltalk.send(aCollection,"_add_",[smalltalk.send(self,"_theClass",[])]);
-smalltalk.send(smalltalk.send(smalltalk.send(self,"_nodes",[]),"_sorted_",[(function(a,b){
-return smalltalk.send(smalltalk.send(smalltalk.send(a,"_theClass",[]),"_name",[]),"__lt_eq",[smalltalk.send(smalltalk.send(b,"_theClass",[]),"_name",[])]);
-})]),"_do_",[(function(aNode){
-return smalltalk.send(aNode,"_traverseClassesWith_",[aCollection]);
-})]);
-return self}
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(_st(self)._nodes())._sorted_((function(a,b){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})})))._do_((function(aNode){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({aNode:aNode},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"traverseClassesWith:",{aCollection:aCollection}, smalltalk.ClassSorterNode)})}
 }),
 smalltalk.ClassSorterNode);
 
@@ -1156,15 +1354,15 @@ smalltalk.method({
 selector: "on:classes:level:",
 fn: function (aClass,aCollection,anInteger){
 var self=this;
-var $2,$3,$1;
-$2=smalltalk.send(self,"_new",[]);
-smalltalk.send($2,"_theClass_",[aClass]);
-smalltalk.send($2,"_level_",[anInteger]);
-smalltalk.send($2,"_getNodesFrom_",[aCollection]);
-$3=smalltalk.send($2,"_yourself",[]);
+return smalltalk.withContext(function($ctx1) { 
+$2=_st(self)._new();
+_st($2)._theClass_(aClass);
+_st($2)._level_(anInteger);
+_st($2)._getNodesFrom_(aCollection);
+$3=_st($2)._yourself();
 $1=$3;
 return $1;
-}
+}, function($ctx1) {$ctx1.fill(self,"on:classes:level:",{aClass:aClass,aCollection:aCollection,anInteger:anInteger}, smalltalk.ClassSorterNode.klass)})}
 }),
 smalltalk.ClassSorterNode.klass);