resin 0.3.1 → 0.4.0

data/amber/js/Kernel-Tests.js

@@ -1,5 +1,45 @@
 smalltalk.addPackage('Kernel-Tests', {});
 smalltalk.addClass('BlockClosureTest', smalltalk.TestCase, [], 'Kernel-Tests');
+smalltalk.addMethod(
+"_testCanClearInterval",
+smalltalk.method({
+selector: "testCanClearInterval",
+category: 'tests',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}))._valueWithInterval_((0)))._clearInterval();
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testCanClearInterval",{}, smalltalk.BlockClosureTest)})},
+args: [],
+source: "testCanClearInterval\x0a\x09self shouldnt: [([Error new signal] valueWithInterval: 0) clearInterval] raise: Error",
+messageSends: ["shouldnt:raise:", "clearInterval", "valueWithInterval:", "signal", "new"],
+referencedClasses: ["Error"]
+}),
+smalltalk.BlockClosureTest);
+
+smalltalk.addMethod(
+"_testCanClearTimeout",
+smalltalk.method({
+selector: "testCanClearTimeout",
+category: 'tests',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}))._valueWithTimeout_((0)))._clearTimeout();
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testCanClearTimeout",{}, smalltalk.BlockClosureTest)})},
+args: [],
+source: "testCanClearTimeout\x0a\x09self shouldnt: [([Error new signal] valueWithTimeout: 0) clearTimeout] raise: Error",
+messageSends: ["shouldnt:raise:", "clearTimeout", "valueWithTimeout:", "signal", "new"],
+referencedClasses: ["Error"]
+}),
+smalltalk.BlockClosureTest);
+
 smalltalk.addMethod(
 "_testCompiledSource",
 smalltalk.method({
@@ -7,10 +47,10 @@ selector: "testCompiledSource",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((function(){
-return smalltalk.send((1),"__plus",[(1)]);
-}),"_compiledSource",[]),"_includesSubString_",["function"])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._compiledSource())._includesSubString_("function"));
+return self}, function($ctx1) {$ctx1.fill(self,"testCompiledSource",{}, smalltalk.BlockClosureTest)})},
 args: [],
 source: "testCompiledSource\x0a\x09self assert: ([1+1] compiledSource includesSubString: 'function')",
 messageSends: ["assert:", "includesSubString:", "compiledSource", "+"],
@@ -25,16 +65,16 @@ selector: "testEnsure",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send((function(){
-return smalltalk.send((smalltalk.Error || Error),"_new",[]);
-}),"_ensure_",[(function(){
-return true;
-})])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._ensure_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+return self}, function($ctx1) {$ctx1.fill(self,"testEnsure",{}, smalltalk.BlockClosureTest)})},
 args: [],
-source: "testEnsure\x0a\x09self assert: ([Error new] ensure: [true])",
-messageSends: ["assert:", "ensure:", "new"],
-referencedClasses: ["Error"]
+source: "testEnsure\x0a\x09self assert: 3 equals: ([3] ensure: [4])",
+messageSends: ["assert:equals:", "ensure:"],
+referencedClasses: []
 }),
 smalltalk.BlockClosureTest);
 
@@ -45,14 +85,14 @@ selector: "testEnsureRaises",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send((function(){
-return smalltalk.send(smalltalk.send((smalltalk.Error || Error),"_new",[]),"_signal",[]);
-}),"_ensure_",[(function(){
-return true;
-})]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}))._ensure_((function(){
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testEnsureRaises",{}, smalltalk.BlockClosureTest)})},
 args: [],
 source: "testEnsureRaises\x0a\x09self should: [[Error new signal] ensure: [true]] raise: Error",
 messageSends: ["should:raise:", "ensure:", "signal", "new"],
@@ -60,6 +100,32 @@ referencedClasses: ["Error"]
 }),
 smalltalk.BlockClosureTest);
 
+smalltalk.addMethod(
+"_testExceptionSemantics",
+smalltalk.method({
+selector: "testExceptionSemantics",
+category: 'tests',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._async_((function(){
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+_st((smalltalk.Error || Error))._signal();
+_st(self)._deny_(true);
+return _st(self)._finished();
+}, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}))._on_do_((smalltalk.Error || Error),(function(ex){
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({ex:ex},$ctx1)})}));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((0));
+return self}, function($ctx1) {$ctx1.fill(self,"testExceptionSemantics",{}, smalltalk.BlockClosureTest)})},
+args: [],
+source: "testExceptionSemantics\x0a\x09\x22See https://github.com/NicolasPetton/amber/issues/314\x22\x0a    self timeout: 100.\x0a    \x0a    (self async:  [ \x0a    \x09[ \x0a        \x09self assert: true. \x0a            Error signal. \x0a            \x22The following should *not* be run\x22\x0a            self deny: true.\x0a            self finished.\x0a  \x09\x09] on: Error do: [ :ex | self finished ] \x0a\x09]) valueWithTimeout: 0",
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "on:do:", "finished", "assert:", "signal", "deny:"],
+referencedClasses: ["Error"]
+}),
+smalltalk.BlockClosureTest);
+
 smalltalk.addMethod(
 "_testNumArgs",
 smalltalk.method({
@@ -67,11 +133,11 @@ selector: "testNumArgs",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(){
-}),"_numArgs",[]),(0)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(a,b){
-}),"_numArgs",[]),(2)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+_st(self)._assert_equals_(_st((function(a,b){
+return smalltalk.withContext(function($ctx2) {
+return self}, function($ctx1) {$ctx1.fill(self,"testNumArgs",{}, smalltalk.BlockClosureTest)})},
 args: [],
 source: "testNumArgs\x0a\x09self assert: [] numArgs equals: 0.\x0a\x09self assert: [:a :b | ] numArgs equals: 2",
 messageSends: ["assert:equals:", "numArgs"],
@@ -86,12 +152,12 @@ selector: "testOnDo",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send((function(){
-return smalltalk.send(smalltalk.send((smalltalk.Error || Error),"_new",[]),"_signal",[]);
-}),"_on_do_",[(smalltalk.Error || Error),(function(ex){
-return true;
-})])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_((smalltalk.Error || Error),(function(ex){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({ex:ex},$ctx1)})})));
+return self}, function($ctx1) {$ctx1.fill(self,"testOnDo",{}, smalltalk.BlockClosureTest)})},
 args: [],
 source: "testOnDo\x0a\x09self assert: ([Error new signal] on: Error do: [:ex | true])",
 messageSends: ["assert:", "on:do:", "signal", "new"],
@@ -106,19 +172,19 @@ selector: "testValue",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(){
-return smalltalk.send((1),"__plus",[(1)]);
-}),"_value",[]),(2)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(x){
-return smalltalk.send(x,"__plus",[(1)]);
-}),"_value_",[(2)]),(3)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(x,y){
-return smalltalk.send(x,"__star",[y]);
-}),"_value_value_",[(2),(4)]),(8)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(a,b,c){
-return (1);
-}),"_value",[]),(1)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._value(),(2));
+_st(self)._assert_equals_(_st((function(x){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({x:x},$ctx1)})}))._value_((2)),(3));
+_st(self)._assert_equals_(_st((function(x,y){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({x:x,y:y},$ctx1)})}))._value_value_((2),(4)),(8));
+_st(self)._assert_equals_(_st((function(a,b,c){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({a:a,b:b,c:c},$ctx1)})}))._value(),(1));
+return self}, function($ctx1) {$ctx1.fill(self,"testValue",{}, smalltalk.BlockClosureTest)})},
 args: [],
 source: "testValue\x0a\x09self assert: ([1+1] value) equals: 2.\x0a\x09self assert: ([:x | x +1] value: 2) equals: 3.\x0a\x09self assert: ([:x :y | x*y] value: 2 value: 4) equals: 8. \x0a\x0a\x09\x22Arguments are optional in Amber. This isn't ANSI compliant.\x22\x0a\x0a\x09self assert: ([:a :b :c | 1] value) equals: 1",
 messageSends: ["assert:equals:", "value", "+", "value:", "value:value:", "*"],
@@ -133,16 +199,16 @@ selector: "testValueWithPossibleArguments",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(){
-return (1);
-}),"_valueWithPossibleArguments_",[[(3), (4)]]),(1)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(a){
-return smalltalk.send(a,"__plus",[(4)]);
-}),"_valueWithPossibleArguments_",[[(3), (4)]]),(7)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(a,b){
-return smalltalk.send(a,"__plus",[b]);
-}),"_valueWithPossibleArguments_",[[(3), (4), (5)]]),(7)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._valueWithPossibleArguments_([(3), (4)]),(1));
+_st(self)._assert_equals_(_st((function(a){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({a:a},$ctx1)})}))._valueWithPossibleArguments_([(3), (4)]),(7));
+_st(self)._assert_equals_(_st((function(a,b){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})}))._valueWithPossibleArguments_([(3), (4), (5)]),(7));
+return self}, function($ctx1) {$ctx1.fill(self,"testValueWithPossibleArguments",{}, smalltalk.BlockClosureTest)})},
 args: [],
 source: "testValueWithPossibleArguments\x0a\x09self assert: ([1] valueWithPossibleArguments: #(3 4)) equals: 1.\x0a\x09self assert: ([:a | a + 4] valueWithPossibleArguments: #(3 4)) equals: 7.\x0a\x09self assert: ([:a :b | a + b] valueWithPossibleArguments: #(3 4 5)) equals: 7.",
 messageSends: ["assert:equals:", "valueWithPossibleArguments:", "+"],
@@ -158,22 +224,22 @@ category: 'tests',
 fn: function (){
 var self=this;
 var i;
-i=(0);
-smalltalk.send((function(){
-return smalltalk.send(i,"__gt",[(5)]);
-}),"_whileFalse_",[(function(){
-i=smalltalk.send(i,"__plus",[(1)]);
+return smalltalk.withContext(function($ctx1) { 
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
+return smalltalk.withContext(function($ctx2) {
 return i;
-})]);
-smalltalk.send(self,"_assert_equals_",[i,(6)]);
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(self)._assert_equals_(i,(6));
 i=(0);
-smalltalk.send((function(){
-i=smalltalk.send(i,"__plus",[(1)]);
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
 i;
-return smalltalk.send(i,"__gt",[(5)]);
-}),"_whileFalse",[]);
-smalltalk.send(self,"_assert_equals_",[i,(6)]);
-return self},
+return _st(i).__gt((5));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse();
+_st(self)._assert_equals_(i,(6));
+return self}, function($ctx1) {$ctx1.fill(self,"testWhileFalse",{i:i}, smalltalk.BlockClosureTest)})},
 args: [],
 source: "testWhileFalse\x0a\x09| i |\x0a\x09i := 0.\x0a\x09[i > 5] whileFalse: [i := i + 1].\x0a\x09self assert: i equals: 6.\x0a\x0a\x09i := 0.\x0a\x09[i := i + 1. i > 5] whileFalse.\x0a\x09self assert: i equals: 6",
 messageSends: ["whileFalse:", "+", ">", "assert:equals:", "whileFalse"],
@@ -189,22 +255,22 @@ category: 'tests',
 fn: function (){
 var self=this;
 var i;
-i=(0);
-smalltalk.send((function(){
-return smalltalk.send(i,"__lt",[(5)]);
-}),"_whileTrue_",[(function(){
-i=smalltalk.send(i,"__plus",[(1)]);
+return smalltalk.withContext(function($ctx1) { 
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
+return smalltalk.withContext(function($ctx2) {
 return i;
-})]);
-smalltalk.send(self,"_assert_equals_",[i,(5)]);
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(self)._assert_equals_(i,(5));
 i=(0);
-smalltalk.send((function(){
-i=smalltalk.send(i,"__plus",[(1)]);
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
 i;
-return smalltalk.send(i,"__lt",[(5)]);
-}),"_whileTrue",[]);
-smalltalk.send(self,"_assert_equals_",[i,(5)]);
-return self},
+return _st(i).__lt((5));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue();
+_st(self)._assert_equals_(i,(5));
+return self}, function($ctx1) {$ctx1.fill(self,"testWhileTrue",{i:i}, smalltalk.BlockClosureTest)})},
 args: [],
 source: "testWhileTrue\x0a\x09| i |\x0a\x09i := 0.\x0a\x09[i < 5] whileTrue: [i := i + 1].\x0a\x09self assert: i equals: 5.\x0a\x0a\x09i := 0.\x0a\x09[i := i + 1. i < 5] whileTrue.\x0a\x09self assert: i equals: 5",
 messageSends: ["whileTrue:", "+", "<", "assert:equals:", "whileTrue"],
@@ -222,17 +288,17 @@ selector: "testEquality",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_deny_",[smalltalk.send((0),"__eq",[false])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq",[(0)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("","__eq",[false])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq",[""])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"__eq",[true])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq",[true])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(true,"__eq",[false])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(false,"__eq",[false])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(true,"_yourself",[]),"__eq",[true])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(true,"_yourself",[]),"__eq",[smalltalk.send(true,"_yourself",[])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(false).__eq((0)));
+_st(self)._deny_(_st("").__eq(false));
+_st(self)._deny_(_st(false).__eq(""));
+_st(self)._assert_(_st(true).__eq(true));
+_st(self)._deny_(_st(false).__eq(true));
+_st(self)._deny_(_st(true).__eq(false));
+_st(self)._assert_(_st(false).__eq(false));
+_st(self)._assert_(_st(_st(true)._yourself()).__eq(true));
+_st(self)._assert_(_st(_st(true)._yourself()).__eq(_st(true)._yourself()));
+return self}, function($ctx1) {$ctx1.fill(self,"testEquality",{}, smalltalk.BooleanTest)})},
 args: [],
 source: "testEquality\x0a\x09\x22We're on top of JS...just be sure to check the basics!\x22\x0a\x0a\x09self deny: 0 = false. \x0a\x09self deny: false = 0.\x0a\x09self deny: '' = false.\x0a\x09self deny: false = ''.\x0a\x0a\x09self assert: true = true.\x0a\x09self deny: false = true.\x0a\x09self deny: true = false.\x0a\x09self assert: false = false.\x0a\x0a\x09\x22JS may do some type coercing after sending a message\x22\x0a\x09self assert: true yourself = true.\x0a\x09self assert: true yourself = true yourself",
 messageSends: ["deny:", "=", "assert:", "yourself"],
@@ -247,17 +313,17 @@ selector: "testIdentity",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_deny_",[smalltalk.send((0),"__eq_eq",[false])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq_eq",[(0)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("","__eq_eq",[false])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq_eq",[""])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"__eq_eq",[true])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq_eq",[true])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(true,"__eq_eq",[false])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(false,"__eq_eq",[false])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(true,"_yourself",[]),"__eq_eq",[true])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(true,"_yourself",[]),"__eq_eq",[smalltalk.send(true,"_yourself",[])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(false).__eq_eq((0)));
+_st(self)._deny_(_st("").__eq_eq(false));
+_st(self)._deny_(_st(false).__eq_eq(""));
+_st(self)._assert_(_st(true).__eq_eq(true));
+_st(self)._deny_(_st(false).__eq_eq(true));
+_st(self)._deny_(_st(true).__eq_eq(false));
+_st(self)._assert_(_st(false).__eq_eq(false));
+_st(self)._assert_(_st(_st(true)._yourself()).__eq_eq(true));
+_st(self)._assert_(_st(_st(true)._yourself()).__eq_eq(_st(true)._yourself()));
+return self}, function($ctx1) {$ctx1.fill(self,"testIdentity",{}, smalltalk.BooleanTest)})},
 args: [],
 source: "testIdentity\x0a\x09\x22We're on top of JS...just be sure to check the basics!\x22\x0a\x0a\x09self deny: 0 == false. \x0a\x09self deny: false == 0.\x0a\x09self deny: '' == false.\x0a\x09self deny: false == ''.\x0a\x0a\x09self assert: true == true.\x0a\x09self deny: false == true.\x0a\x09self deny: true == false.\x0a\x09self assert: false == false.\x0a\x0a\x09\x22JS may do some type coercing after sending a message\x22\x0a\x09self assert: true yourself == true.\x0a\x09self assert: true yourself == true yourself",
 messageSends: ["deny:", "==", "assert:", "yourself"],
@@ -272,48 +338,64 @@ selector: "testIfTrueIfFalse",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1,$2,$3,$4,$5,$6,$7,$8;
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
 if(smalltalk.assert(true)){
-$1="alternative block";
+$3="alternative block";
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($1,"__eq",["alternative block"])]);
+$2=_st($3).__eq("alternative block");
+_st($1)._assert_($2);
+$4=self;
 if(! smalltalk.assert(true)){
-$2="alternative block";
+$6="alternative block";
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($2,"__eq",[nil])]);
+$5=_st($6).__eq(nil);
+_st($4)._assert_($5);
+$7=self;
 if(smalltalk.assert(false)){
-$3="alternative block";
+$9="alternative block";
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($3,"__eq",[nil])]);
+$8=_st($9).__eq(nil);
+_st($7)._assert_($8);
+$10=self;
 if(! smalltalk.assert(false)){
-$4="alternative block";
+$12="alternative block";
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($4,"__eq",["alternative block"])]);
+$11=_st($12).__eq("alternative block");
+_st($10)._assert_($11);
+$13=self;
 if(smalltalk.assert(false)){
-$5="alternative block";
+$15="alternative block";
 } else {
-$5="alternative block2";
+$15="alternative block2";
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($5,"__eq",["alternative block2"])]);
+$14=_st($15).__eq("alternative block2");
+_st($13)._assert_($14);
+$16=self;
 if(smalltalk.assert(false)){
-$6="alternative block2";
+$18="alternative block2";
 } else {
-$6="alternative block";
+$18="alternative block";
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($6,"__eq",["alternative block"])]);
+$17=_st($18).__eq("alternative block");
+_st($16)._assert_($17);
+$19=self;
 if(smalltalk.assert(true)){
-$7="alternative block";
+$21="alternative block";
 } else {
-$7="alternative block2";
+$21="alternative block2";
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($7,"__eq",["alternative block"])]);
+$20=_st($21).__eq("alternative block");
+_st($19)._assert_($20);
+$22=self;
 if(smalltalk.assert(true)){
-$8="alternative block2";
+$24="alternative block2";
 } else {
-$8="alternative block";
+$24="alternative block";
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($8,"__eq",["alternative block2"])]);
-return self},
+$23=_st($24).__eq("alternative block2");
+_st($22)._assert_($23);
+return self}, function($ctx1) {$ctx1.fill(self,"testIfTrueIfFalse",{}, smalltalk.BooleanTest)})},
 args: [],
 source: "testIfTrueIfFalse\x0a \x0a\x09self assert: (true ifTrue: ['alternative block']) = 'alternative block'.\x0a\x09self assert: (true ifFalse: ['alternative block']) = nil.\x0a\x0a\x09self assert: (false ifTrue: ['alternative block']) = nil.\x0a\x09self assert: (false ifFalse: ['alternative block']) = 'alternative block'.\x0a\x0a\x09self assert: (false ifTrue: ['alternative block'] ifFalse: ['alternative block2']) = 'alternative block2'.\x0a\x09self assert: (false ifFalse: ['alternative block'] ifTrue: ['alternative block2']) = 'alternative block'.\x0a\x0a\x09self assert: (true ifTrue: ['alternative block'] ifFalse: ['alternative block2']) = 'alternative block'.\x0a\x09self assert: (true ifFalse: ['alternative block'] ifTrue: ['alternative block2']) = 'alternative block2'.",
 messageSends: ["assert:", "=", "ifTrue:", "ifFalse:", "ifTrue:ifFalse:", "ifFalse:ifTrue:"],
@@ -321,6 +403,86 @@ referencedClasses: []
 }),
 smalltalk.BooleanTest);
 
+smalltalk.addMethod(
+"_testIfTrueIfFalseWithBoxing",
+smalltalk.method({
+selector: "testIfTrueIfFalseWithBoxing",
+category: 'tests',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
+$4=_st(true)._yourself();
+if(smalltalk.assert($4)){
+$3="alternative block";
+};
+$2=_st($3).__eq("alternative block");
+_st($1)._assert_($2);
+$5=self;
+$8=_st(true)._yourself();
+if(! smalltalk.assert($8)){
+$7="alternative block";
+};
+$6=_st($7).__eq(nil);
+_st($5)._assert_($6);
+$9=self;
+$12=_st(false)._yourself();
+if(smalltalk.assert($12)){
+$11="alternative block";
+};
+$10=_st($11).__eq(nil);
+_st($9)._assert_($10);
+$13=self;
+$16=_st(false)._yourself();
+if(! smalltalk.assert($16)){
+$15="alternative block";
+};
+$14=_st($15).__eq("alternative block");
+_st($13)._assert_($14);
+$17=self;
+$20=_st(false)._yourself();
+if(smalltalk.assert($20)){
+$19="alternative block";
+} else {
+$19="alternative block2";
+};
+$18=_st($19).__eq("alternative block2");
+_st($17)._assert_($18);
+$21=self;
+$24=_st(false)._yourself();
+if(smalltalk.assert($24)){
+$23="alternative block2";
+} else {
+$23="alternative block";
+};
+$22=_st($23).__eq("alternative block");
+_st($21)._assert_($22);
+$25=self;
+$28=_st(true)._yourself();
+if(smalltalk.assert($28)){
+$27="alternative block";
+} else {
+$27="alternative block2";
+};
+$26=_st($27).__eq("alternative block");
+_st($25)._assert_($26);
+$29=self;
+$32=_st(true)._yourself();
+if(smalltalk.assert($32)){
+$31="alternative block2";
+} else {
+$31="alternative block";
+};
+$30=_st($31).__eq("alternative block2");
+_st($29)._assert_($30);
+return self}, function($ctx1) {$ctx1.fill(self,"testIfTrueIfFalseWithBoxing",{}, smalltalk.BooleanTest)})},
+args: [],
+source: "testIfTrueIfFalseWithBoxing\x0a \x0a\x09self assert: (true yourself ifTrue: ['alternative block']) = 'alternative block'.\x0a\x09self assert: (true yourself ifFalse: ['alternative block']) = nil.\x0a\x0a\x09self assert: (false yourself ifTrue: ['alternative block']) = nil.\x0a\x09self assert: (false yourself ifFalse: ['alternative block']) = 'alternative block'.\x0a\x0a\x09self assert: (false yourself ifTrue: ['alternative block'] ifFalse: ['alternative block2']) = 'alternative block2'.\x0a\x09self assert: (false yourself ifFalse: ['alternative block'] ifTrue: ['alternative block2']) = 'alternative block'.\x0a\x0a\x09self assert: (true yourself ifTrue: ['alternative block'] ifFalse: ['alternative block2']) = 'alternative block'.\x0a\x09self assert: (true yourself ifFalse: ['alternative block'] ifTrue: ['alternative block2']) = 'alternative block2'.",
+messageSends: ["assert:", "=", "ifTrue:", "yourself", "ifFalse:", "ifTrue:ifFalse:", "ifFalse:ifTrue:"],
+referencedClasses: []
+}),
+smalltalk.BooleanTest);
+
 smalltalk.addMethod(
 "_testLogic",
 smalltalk.method({
@@ -328,22 +490,26 @@ selector: "testLogic",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1,$2,$3,$4;
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"_&",[true])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(true,"_&",[false])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"_&",[true])]);
-$1=smalltalk.send(self,"_deny_",[smalltalk.send(false,"_&",[false])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"_|",[true])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"_|",[false])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(false,"_|",[true])]);
-$2=smalltalk.send(self,"_deny_",[smalltalk.send(false,"_|",[false])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"_&",[smalltalk.send((1),"__gt",[(0)])])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_&",[false])]);
-$3=smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_&",[smalltalk.send((1),"__gt",[(2)])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(false,"_|",[smalltalk.send((1),"__gt",[(0)])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_|",[false])]);
-$4=smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_|",[smalltalk.send((1),"__gt",[(2)])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
+_st($1)._assert_(_st(true).__and(true));
+_st($1)._deny_(_st(true).__and(false));
+_st($1)._deny_(_st(false).__and(true));
+$2=_st($1)._deny_(_st(false).__and(false));
+$3=self;
+_st($3)._assert_(_st(true).__or(true));
+_st($3)._assert_(_st(true).__or(false));
+_st($3)._assert_(_st(false).__or(true));
+$4=_st($3)._deny_(_st(false).__or(false));
+$5=self;
+_st($5)._assert_(_st(true).__and(_st((1)).__gt((0))));
+_st($5)._deny_(_st(_st((1)).__gt((0))).__and(false));
+$6=_st($5)._deny_(_st(_st((1)).__gt((0))).__and(_st((1)).__gt((2))));
+$7=self;
+_st($7)._assert_(_st(false).__or(_st((1)).__gt((0))));
+_st($7)._assert_(_st(_st((1)).__gt((0))).__or(false));
+$8=_st($7)._assert_(_st(_st((1)).__gt((0))).__or(_st((1)).__gt((2))));
+return self}, function($ctx1) {$ctx1.fill(self,"testLogic",{}, smalltalk.BooleanTest)})},
 args: [],
 source: "testLogic\x0a \x0a\x09\x22Trivial logic table\x22\x0a\x09self assert: (true & true); deny: (true & false); deny: (false & true); deny: (false & false).\x0a\x09self assert: (true | true); assert: (true | false); assert: (false | true); deny: (false | false).\x0a        \x22Checking that expressions work fine too\x22\x0a\x09self assert: (true & (1 > 0)); deny: ((1 > 0) & false); deny: ((1 > 0) & (1 > 2)).\x0a        self assert: (false | (1 > 0)); assert: ((1 > 0) | false); assert: ((1 > 0) | (1 > 2))",
 messageSends: ["assert:", "&", "deny:", "|", ">"],
@@ -358,50 +524,54 @@ selector: "testLogicKeywords",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1,$2,$3,$4;
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"_and_",[(function(){
-return true;
-})])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(true,"_and_",[(function(){
-return false;
-})])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"_and_",[(function(){
-return true;
-})])]);
-$1=smalltalk.send(self,"_deny_",[smalltalk.send(false,"_and_",[(function(){
-return false;
-})])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"_or_",[(function(){
-return true;
-})])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"_or_",[(function(){
-return false;
-})])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(false,"_or_",[(function(){
-return true;
-})])]);
-$2=smalltalk.send(self,"_deny_",[smalltalk.send(false,"_or_",[(function(){
-return false;
-})])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(true,"_and_",[(function(){
-return smalltalk.send((1),"__gt",[(0)]);
-})])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_and_",[(function(){
-return false;
-})])]);
-$3=smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_and_",[(function(){
-return smalltalk.send((1),"__gt",[(2)]);
-})])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(false,"_or_",[(function(){
-return smalltalk.send((1),"__gt",[(0)]);
-})])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_or_",[(function(){
-return false;
-})])]);
-$4=smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_or_",[(function(){
-return smalltalk.send((1),"__gt",[(2)]);
-})])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
+_st($1)._assert_(_st(true)._and_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+_st($1)._deny_(_st(true)._and_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+_st($1)._deny_(_st(false)._and_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+$2=_st($1)._deny_(_st(false)._and_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+$3=self;
+_st($3)._assert_(_st(true)._or_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+_st($3)._assert_(_st(true)._or_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+_st($3)._assert_(_st(false)._or_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+$4=_st($3)._deny_(_st(false)._or_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+$5=self;
+_st($5)._assert_(_st(true)._and_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+_st($5)._deny_(_st(_st((1)).__gt((0)))._and_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+$6=_st($5)._deny_(_st(_st((1)).__gt((0)))._and_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+$7=self;
+_st($7)._assert_(_st(false)._or_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+_st($7)._assert_(_st(_st((1)).__gt((0)))._or_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+$8=_st($7)._assert_(_st(_st((1)).__gt((0)))._or_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+return self}, function($ctx1) {$ctx1.fill(self,"testLogicKeywords",{}, smalltalk.BooleanTest)})},
 args: [],
 source: "testLogicKeywords\x0a \x0a\x09\x22Trivial logic table\x22\x0a\x09self \x0a\x09\x09assert: (true and: [ true]); \x0a\x09\x09deny: (true and: [ false ]); \x0a\x09\x09deny: (false and: [ true ]); \x0a\x09\x09deny: (false and: [ false ]).\x0a\x09self \x0a\x09\x09assert: (true or: [ true ]); \x0a\x09\x09assert: (true or: [ false ]); \x0a\x09\x09assert: (false or: [ true ]); \x0a\x09\x09deny: (false or: [ false ]).\x0a        \x0a\x09\x22Checking that expressions work fine too\x22\x0a\x09self \x0a\x09\x09assert: (true and: [ 1 > 0 ]); \x0a\x09\x09deny: ((1 > 0) and: [ false ]); \x0a\x09\x09deny: ((1 > 0) and: [ 1 > 2 ]).\x0a        self \x0a\x09\x09assert: (false or: [ 1 > 0 ]); \x0a\x09\x09assert: ((1 > 0) or: [ false ]); \x0a\x09\x09assert: ((1 > 0) or: [ 1 > 2 ])",
 messageSends: ["assert:", "and:", "deny:", "or:", ">"],
@@ -416,17 +586,17 @@ selector: "testNonBooleanError",
 category: 'tests',
 fn: function (){
 var self=this;
-var b;
-b= '' ;
-;
-smalltalk.send(self,"_should_raise_",[(function(){
-if(smalltalk.assert(self["@nonBoolean"])){
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
+$2=(function(){
+return smalltalk.withContext(function($ctx2) {
 } else {
 };
-}),(smalltalk.NonBooleanReceiver || NonBooleanReceiver)]);
-return self},
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})});
+_st($1)._should_raise_($2,(smalltalk.NonBooleanReceiver || NonBooleanReceiver));
+return self}, function($ctx1) {$ctx1.fill(self,"testNonBooleanError",{}, smalltalk.BooleanTest)})},
 args: [],
-source: "testNonBooleanError\x0a\x09|b|\x0a    b := < '' >.\x0a    self should: [nonBoolean ifTrue: [] ifFalse: []] raise: NonBooleanReceiver",
+source: "testNonBooleanError\x0a    self should: [ '' ifTrue: [] ifFalse: [] ] raise: NonBooleanReceiver",
 messageSends: ["should:raise:", "ifTrue:ifFalse:"],
 referencedClasses: ["NonBooleanReceiver"]
 }),
@@ -442,8 +612,8 @@ selector: "setUp",
 category: 'running',
 fn: function (){
 var self=this;
-self["@builder"]=smalltalk.send((smalltalk.ClassBuilder || ClassBuilder),"_new",[]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"setUp",{}, smalltalk.ClassBuilderTest)})},
 args: [],
 source: "setUp\x0a\x09builder := ClassBuilder new",
 messageSends: ["new"],
@@ -458,14 +628,16 @@ selector: "tearDown",
 category: 'running',
 fn: function (){
 var self=this;
-if(($receiver = self["@theClass"]) == nil || $receiver == undefined){
-self["@theClass"];
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@theClass"];
+if(($receiver = $1) == nil || $receiver == undefined){
+$1;
 } else {
-smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk),"_current",[]),"_removeClass_",[self["@theClass"]]);
+_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._removeClass_(self["@theClass"]);
 self["@theClass"]=nil;
 self["@theClass"];
 };
-return self},
+return self}, function($ctx1) {$ctx1.fill(self,"tearDown",{}, smalltalk.ClassBuilderTest)})},
 args: [],
 source: "tearDown\x0a\x09theClass ifNotNil: [Smalltalk current removeClass: theClass. theClass := nil]",
 messageSends: ["ifNotNil:", "removeClass:", "current"],
@@ -480,13 +652,13 @@ selector: "testClassCopy",
 category: 'running',
 fn: function (){
 var self=this;
-self["@theClass"]=smalltalk.send(self["@builder"],"_copyClass_named_",[(smalltalk.ObjectMock || ObjectMock),"ObjectMock2"]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(self["@theClass"],"_superclass",[]),"__eq_eq",[smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_superclass",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(self["@theClass"],"_instanceVariableNames",[]),"__eq_eq",[smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_instanceVariableNames",[])])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(self["@theClass"],"_name",[]),"ObjectMock2"]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(self["@theClass"],"_package",[]),"__eq_eq",[smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_package",[])])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self["@theClass"],"_methodDictionary",[]),"_keys",[]),smalltalk.send(smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_methodDictionary",[]),"_keys",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st(self["@theClass"])._superclass()).__eq_eq(_st((smalltalk.ObjectMock || ObjectMock))._superclass()));
+_st(self)._assert_(_st(_st(self["@theClass"])._instanceVariableNames()).__eq_eq(_st((smalltalk.ObjectMock || ObjectMock))._instanceVariableNames()));
+_st(self)._assert_equals_(_st(self["@theClass"])._name(),"ObjectMock2");
+_st(self)._assert_(_st(_st(self["@theClass"])._package()).__eq_eq(_st((smalltalk.ObjectMock || ObjectMock))._package()));
+_st(self)._assert_equals_(_st(_st(self["@theClass"])._methodDictionary())._keys(),_st(_st((smalltalk.ObjectMock || ObjectMock))._methodDictionary())._keys());
+return self}, function($ctx1) {$ctx1.fill(self,"testClassCopy",{}, smalltalk.ClassBuilderTest)})},
 args: [],
 source: "testClassCopy\x0a\x09theClass := builder copyClass: ObjectMock named: 'ObjectMock2'.\x0a\x09self assert: theClass superclass == ObjectMock superclass.\x0a\x09self assert: theClass instanceVariableNames == ObjectMock instanceVariableNames.\x0a\x09self assert: theClass name equals: 'ObjectMock2'.\x0a\x09self assert: theClass package == ObjectMock package.\x0a\x09self assert: theClass methodDictionary keys equals: ObjectMock methodDictionary keys",
 messageSends: ["copyClass:named:", "assert:", "==", "superclass", "instanceVariableNames", "assert:equals:", "name", "package", "keys", "methodDictionary"],
@@ -494,6 +666,80 @@ referencedClasses: ["ObjectMock"]
 }),
 smalltalk.ClassBuilderTest);
 
+smalltalk.addMethod(
+"_testClassMigration",
+smalltalk.method({
+selector: "testClassMigration",
+category: 'running',
+fn: function (){
+var self=this;
+var instance,oldClass;
+return smalltalk.withContext(function($ctx1) { 
+instance=_st(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_("ObjectMock2"))._new();
+_st((smalltalk.ObjectMock || ObjectMock))._subclass_instanceVariableNames_package_(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_("ObjectMock2"),"","Kernel-Tests");
+_st(self)._deny_(_st(oldClass).__eq_eq((smalltalk.ObjectMock2 || ObjectMock2)));
+_st(self)._assert_(_st(_st((smalltalk.ObjectMock2 || ObjectMock2))._superclass()).__eq_eq((smalltalk.ObjectMock || ObjectMock)));
+_st(self)._assert_(_st(_st((smalltalk.ObjectMock2 || ObjectMock2))._instanceVariableNames())._isEmpty());
+_st(self)._assert_equals_(_st((smalltalk.ObjectMock2 || ObjectMock2))._selectors(),_st(oldClass)._selectors());
+_st(self)._assert_equals_(_st((smalltalk.ObjectMock2 || ObjectMock2))._comment(),_st(oldClass)._comment());
+_st(self)._assert_equals_(_st(_st((smalltalk.ObjectMock2 || ObjectMock2))._package())._name(),"Kernel-Tests");
+_st(self)._deny_(_st(_st(instance)._class()).__eq_eq((smalltalk.ObjectMock2 || ObjectMock2)));
+_st(self)._assert_equals_(_st(_st(instance)._class())._name(),"OldObjectMock2");
+_st(self)._assert_(_st(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_("OldObjectMock2"))._isNil());
+_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._removeClass_((smalltalk.ObjectMock2 || ObjectMock2));
+return self}, function($ctx1) {$ctx1.fill(self,"testClassMigration",{instance:instance,oldClass:oldClass}, smalltalk.ClassBuilderTest)})},
+args: [],
+source: "testClassMigration\x0a\x09| instance oldClass |\x0a    \x0a    oldClass := builder copyClass: ObjectMock named: 'ObjectMock2'.\x0a    instance := (Smalltalk  current at: 'ObjectMock2') new.\x0a    \x0a    \x22Change the superclass of ObjectMock2\x22\x0a    ObjectMock subclass: (Smalltalk current at: 'ObjectMock2')\x0a    \x09instanceVariableNames: ''\x0a        package: 'Kernel-Tests'.\x0a    \x0a    self deny: oldClass == ObjectMock2.\x0a    \x0a\x09self assert: ObjectMock2 superclass == ObjectMock.\x0a\x09self assert: ObjectMock2 instanceVariableNames isEmpty.\x0a\x09self assert: ObjectMock2 selectors equals: oldClass selectors.\x0a    self assert: ObjectMock2 comment equals: oldClass comment.\x0a    self assert: ObjectMock2 package name equals: 'Kernel-Tests'.\x0a    \x0a\x09self deny: instance class == ObjectMock2.\x0a    self assert: instance class name equals: 'OldObjectMock2'.\x0a    \x0a    self assert: (Smalltalk current at: 'OldObjectMock2') isNil.\x0a    \x0a    Smalltalk current removeClass: ObjectMock2",
+messageSends: ["copyClass:named:", "new", "at:", "current", "subclass:instanceVariableNames:package:", "deny:", "==", "assert:", "superclass", "isEmpty", "instanceVariableNames", "assert:equals:", "selectors", "comment", "name", "package", "class", "isNil", "removeClass:"],
+referencedClasses: ["ObjectMock", "Smalltalk", "ObjectMock2"]
+}),
+smalltalk.ClassBuilderTest);
+
+smalltalk.addMethod(
+"_testClassMigrationWithClassInstanceVariables",
+smalltalk.method({
+selector: "testClassMigrationWithClassInstanceVariables",
+category: 'running',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+_st(_st((smalltalk.ObjectMock2 || ObjectMock2))._class())._instanceVariableNames_("foo bar");
+_st((smalltalk.ObjectMock || ObjectMock))._subclass_instanceVariableNames_package_(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_("ObjectMock2"),"","Kernel-Tests");
+_st(self)._assert_equals_(_st(_st((smalltalk.ObjectMock2 || ObjectMock2))._class())._instanceVariableNames(),["foo", "bar"]);
+_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._removeClass_((smalltalk.ObjectMock2 || ObjectMock2));
+return self}, function($ctx1) {$ctx1.fill(self,"testClassMigrationWithClassInstanceVariables",{}, smalltalk.ClassBuilderTest)})},
+args: [],
+source: "testClassMigrationWithClassInstanceVariables\x0a    \x0a    builder copyClass: ObjectMock named: 'ObjectMock2'.\x0a    ObjectMock2 class instanceVariableNames: 'foo bar'.\x0a    \x0a    \x22Change the superclass of ObjectMock2\x22\x0a    ObjectMock subclass: (Smalltalk current at: 'ObjectMock2')\x0a    \x09instanceVariableNames: ''\x0a        package: 'Kernel-Tests'.\x0a    \x0a    self assert: ObjectMock2 class instanceVariableNames equals: #('foo' 'bar').\x0a    \x0a    Smalltalk current removeClass: ObjectMock2",
+messageSends: ["copyClass:named:", "instanceVariableNames:", "class", "subclass:instanceVariableNames:package:", "at:", "current", "assert:equals:", "instanceVariableNames", "removeClass:"],
+referencedClasses: ["ObjectMock", "ObjectMock2", "Smalltalk"]
+}),
+smalltalk.ClassBuilderTest);
+
+smalltalk.addMethod(
+"_testClassMigrationWithSubclasses",
+smalltalk.method({
+selector: "testClassMigrationWithSubclasses",
+category: 'running',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+_st((smalltalk.ObjectMock2 || ObjectMock2))._subclass_instanceVariableNames_package_("ObjectMock3","","Kernel-Tests");
+_st((smalltalk.ObjectMock3 || ObjectMock3))._subclass_instanceVariableNames_package_("ObjectMock4","","Kernel-Tests");
+_st((smalltalk.ObjectMock || ObjectMock))._subclass_instanceVariableNames_package_(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_("ObjectMock2"),"","Kernel-Tests");
+_st(self)._assert_(_st(_st((smalltalk.ObjectMock || ObjectMock))._subclasses())._includes_((smalltalk.ObjectMock2 || ObjectMock2)));
+_st(self)._assert_(_st(_st((smalltalk.ObjectMock2 || ObjectMock2))._subclasses())._includes_((smalltalk.ObjectMock3 || ObjectMock3)));
+_st(self)._assert_(_st(_st((smalltalk.ObjectMock3 || ObjectMock3))._subclasses())._includes_((smalltalk.ObjectMock4 || ObjectMock4)));
+_st(_st((smalltalk.ObjectMock || ObjectMock))._allSubclasses())._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"testClassMigrationWithSubclasses",{}, smalltalk.ClassBuilderTest)})},
+args: [],
+source: "testClassMigrationWithSubclasses\x0a    \x0a    builder copyClass: ObjectMock named: 'ObjectMock2'.\x0a    ObjectMock2 subclass: 'ObjectMock3' instanceVariableNames: '' package: 'Kernel-Tests'.\x0a    ObjectMock3 subclass: 'ObjectMock4' instanceVariableNames: '' package: 'Kernel-Tests'.\x0a    \x0a    \x22Change the superclass of ObjectMock2\x22\x0a    ObjectMock subclass: (Smalltalk current at: 'ObjectMock2')\x0a    \x09instanceVariableNames: ''\x0a        package: 'Kernel-Tests'.\x0a    \x0a    self assert: (ObjectMock subclasses includes: ObjectMock2).\x0a    self assert: (ObjectMock2 subclasses includes: ObjectMock3).\x0a    self assert: (ObjectMock3 subclasses includes: ObjectMock4).\x0a    \x0a    ObjectMock allSubclasses do: [ :each | Smalltalk current removeClass: each ]",
+messageSends: ["copyClass:named:", "subclass:instanceVariableNames:package:", "at:", "current", "assert:", "includes:", "subclasses", "do:", "removeClass:", "allSubclasses"],
+referencedClasses: ["ObjectMock", "ObjectMock2", "ObjectMock3", "Smalltalk", "ObjectMock4"]
+}),
+smalltalk.ClassBuilderTest);
+
 smalltalk.addMethod(
 "_testInstanceVariableNames",
 smalltalk.method({
@@ -501,8 +747,8 @@ selector: "testInstanceVariableNames",
 category: 'running',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(self["@builder"],"_instanceVariableNamesFor_",["  hello   world   "]),["hello", "world"]]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testInstanceVariableNames",{}, smalltalk.ClassBuilderTest)})},
 args: [],
 source: "testInstanceVariableNames\x0a\x09self assert: (builder instanceVariableNamesFor: '  hello   world   ') equals: #('hello' 'world')",
 messageSends: ["assert:equals:", "instanceVariableNamesFor:"],
@@ -520,11 +766,11 @@ selector: "assertSameContents:as:",
 category: 'convenience',
 fn: function (aCollection,anotherCollection){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(aCollection,"_size",[]),"__eq",[smalltalk.send(anotherCollection,"_size",[])])]);
-smalltalk.send(aCollection,"_do_",[(function(each){
-return smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(aCollection,"_occurrencesOf_",[each]),"__eq",[smalltalk.send(anotherCollection,"_occurrencesOf_",[each])])]);
-})]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(aCollection)._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"assertSameContents:as:",{aCollection:aCollection,anotherCollection:anotherCollection}, smalltalk.CollectionTest)})},
 args: ["aCollection", "anotherCollection"],
 source: "assertSameContents: aCollection \x09as: anotherCollection\x0a\x09self assert: aCollection size = anotherCollection size.\x0a\x09aCollection do: [ :each |\x0a\x09\x09self assert: (aCollection occurrencesOf: each) = (anotherCollection occurrencesOf: each) ]",
 messageSends: ["assert:", "=", "size", "do:", "occurrencesOf:"],
@@ -539,10 +785,10 @@ selector: "collection",
 category: 'accessing',
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_withAll_",[smalltalk.send(self,"_defaultValues",[])]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._collectionClass())._withAll_(_st(self)._defaultValues());
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"collection",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "collection\x0a\x09^ self collectionClass withAll: self defaultValues",
 messageSends: ["withAll:", "defaultValues", "collectionClass"],
@@ -557,10 +803,10 @@ selector: "collectionClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(self,"_class",[]),"_collectionClass",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._class())._collectionClass();
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"collectionClass",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "collectionClass\x0a\x09^ self class collectionClass",
 messageSends: ["collectionClass", "class"],
@@ -575,10 +821,10 @@ selector: "collectionWithDuplicates",
 category: 'accessing',
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_withAll_",[["a", "b", "c", (1), (2), (1), "a"]]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._collectionClass())._withAll_(["a", "b", "c", (1), (2), (1), "a"]);
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"collectionWithDuplicates",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "collectionWithDuplicates\x0a\x09^ self collectionClass withAll: #('a' 'b' 'c' 1 2 1 'a')",
 messageSends: ["withAll:", "collectionClass"],
@@ -593,8 +839,8 @@ selector: "defaultValues",
 category: 'accessing',
 fn: function (){
 var self=this;
-return [(1), (2), (3), (-4)];
-},
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"defaultValues",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "defaultValues\x0a\x09^ #(1 2 3 -4)",
 messageSends: [],
@@ -609,8 +855,8 @@ selector: "isCollectionReadOnly",
 category: 'testing',
 fn: function (){
 var self=this;
-return false;
-},
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"isCollectionReadOnly",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "isCollectionReadOnly\x0a\x09^ false",
 messageSends: [],
@@ -625,8 +871,8 @@ selector: "testAsArray",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(self,"_collection",[]),smalltalk.send(smalltalk.send(self,"_collection",[]),"_asArray",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testAsArray",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "testAsArray\x0a\x09self \x0a\x09\x09assertSameContents: self collection \x0a\x09\x09as: self collection asArray",
 messageSends: ["assertSameContents:as:", "collection", "asArray"],
@@ -641,8 +887,8 @@ selector: "testAsOrderedCollection",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(self,"_collection",[]),smalltalk.send(smalltalk.send(self,"_collection",[]),"_asOrderedCollection",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testAsOrderedCollection",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "testAsOrderedCollection\x0a\x09self \x0a\x09\x09assertSameContents: self collection \x0a\x09\x09as: self collection asOrderedCollection",
 messageSends: ["assertSameContents:as:", "collection", "asOrderedCollection"],
@@ -657,15 +903,14 @@ selector: "testAsSet",
 category: 'tests',
 fn: function (){
 var self=this;
-var c;
-var set;
-c=smalltalk.send(self,"_collectionWithDuplicates",[]);
-set=smalltalk.send(c,"_asSet",[]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(set,"_size",[]),"__eq",[(5)])]);
-smalltalk.send(c,"_do_",[(function(each){
-return smalltalk.send(self,"_assert_",[smalltalk.send(set,"_includes_",[each])]);
-})]);
-return self},
+var c,set;
+return smalltalk.withContext(function($ctx1) { 
+set=_st(c)._asSet();
+_st(self)._assert_(_st(_st(set)._size()).__eq((5)));
+_st(c)._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"testAsSet",{c:c,set:set}, smalltalk.CollectionTest)})},
 args: [],
 source: "testAsSet\x0a\x09| c set |\x0a\x09c := self collectionWithDuplicates.\x0a\x09set := c asSet.\x0a\x09self assert: set size = 5.\x0a\x09c do: [ :each |\x0a\x09\x09self assert: (set includes: each) ]",
 messageSends: ["collectionWithDuplicates", "asSet", "assert:", "=", "size", "do:", "includes:"],
@@ -681,11 +926,11 @@ category: 'tests',
 fn: function (){
 var self=this;
 var newCollection;
-newCollection=[(1), (2), (3), (4)];
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_collect_",[(function(each){
-return smalltalk.send(each,"_abs",[]);
-})]),newCollection]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assertSameContents_as_(_st(_st(self)._collection())._collect_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})),newCollection);
+return self}, function($ctx1) {$ctx1.fill(self,"testCollect",{newCollection:newCollection}, smalltalk.CollectionTest)})},
 args: [],
 source: "testCollect\x0a\x09| newCollection |\x0a\x09newCollection :=  #(1 2 3 4).\x0a\x09self \x0a\x09\x09assertSameContents: (self collection collect: [ :each |\x0a\x09\x09\x09each abs ])\x0a\x09\x09as: newCollection",
 messageSends: ["assertSameContents:as:", "collect:", "abs", "collection"],
@@ -700,15 +945,15 @@ selector: "testDetect",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
-return smalltalk.send(each,"__lt",[(0)]);
-})]),"__eq",[(-4)])]);
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
-return smalltalk.send(each,"__eq",[(6)]);
-})]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}))).__eq((-4)));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testDetect",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "testDetect\x0a\x09self assert: (self collection detect: [ :each | each < 0 ]) = -4.\x0a\x09self \x0a\x09\x09should: [ self collection detect: [ :each | each = 6 ] ]\x0a\x09\x09raise: Error",
 messageSends: ["assert:", "=", "detect:", "<", "collection", "should:raise:"],
@@ -724,12 +969,12 @@ category: 'tests',
 fn: function (){
 var self=this;
 var newCollection;
-newCollection=smalltalk.send((smalltalk.OrderedCollection || OrderedCollection),"_new",[]);
-smalltalk.send(smalltalk.send(self,"_collection",[]),"_do_",[(function(each){
-return smalltalk.send(newCollection,"_add_",[each]);
-})]);
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(self,"_collection",[]),newCollection]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._collection())._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
+_st(self)._assertSameContents_as_(_st(self)._collection(),newCollection);
+return self}, function($ctx1) {$ctx1.fill(self,"testDo",{newCollection:newCollection}, smalltalk.CollectionTest)})},
 args: [],
 source: "testDo\x0a\x09| newCollection |\x0a\x09newCollection := OrderedCollection new.\x0a\x09self collection do: [ :each |\x0a\x09\x09newCollection add: each ].\x0a\x09self \x0a\x09\x09assertSameContents: self collection \x0a\x09\x09as: newCollection",
 messageSends: ["new", "do:", "add:", "collection", "assertSameContents:as:"],
@@ -744,9 +989,9 @@ selector: "testIsEmpty",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_new",[]),"_isEmpty",[])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_isEmpty",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(_st(self)._collection())._isEmpty());
+return self}, function($ctx1) {$ctx1.fill(self,"testIsEmpty",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "testIsEmpty\x0a\x09self assert: self collectionClass new isEmpty.\x0a\x09self deny: self collection isEmpty",
 messageSends: ["assert:", "isEmpty", "new", "collectionClass", "deny:", "collection"],
@@ -762,11 +1007,11 @@ category: 'tests',
 fn: function (){
 var self=this;
 var newCollection;
-newCollection=[(2), (-4)];
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_select_",[(function(each){
-return smalltalk.send(each,"_even",[]);
-})]),newCollection]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assertSameContents_as_(_st(_st(self)._collection())._select_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})),newCollection);
+return self}, function($ctx1) {$ctx1.fill(self,"testSelect",{newCollection:newCollection}, smalltalk.CollectionTest)})},
 args: [],
 source: "testSelect\x0a\x09| newCollection |\x0a\x09newCollection := #(2 -4).\x0a\x09self \x0a\x09\x09assertSameContents: (self collection select: [ :each |\x0a\x09\x09\x09each even ])\x0a\x09\x09as: newCollection",
 messageSends: ["assertSameContents:as:", "select:", "even", "collection"],
@@ -781,9 +1026,9 @@ selector: "testSize",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_new",[]),"_size",[]),"__eq",[(0)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_size",[]),"__eq",[(4)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st(_st(self)._collection())._size()).__eq((4)));
+return self}, function($ctx1) {$ctx1.fill(self,"testSize",{}, smalltalk.CollectionTest)})},
 args: [],
 source: "testSize\x0a\x09self assert: self collectionClass new size = 0.\x0a\x09self assert: self collection size = 4",
 messageSends: ["assert:", "=", "size", "new", "collectionClass", "collection"],
@@ -799,8 +1044,8 @@ selector: "collectionClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return nil;
-},
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"collectionClass",{}, smalltalk.CollectionTest.klass)})},
 args: [],
 source: "collectionClass\x0a\x09^ nil",
 messageSends: [],
@@ -815,10 +1060,10 @@ selector: "isAbstract",
 category: 'testing',
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_isNil",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(_st(self)._collectionClass())._isNil();
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"isAbstract",{}, smalltalk.CollectionTest.klass)})},
 args: [],
 source: "isAbstract\x0a\x09^ self collectionClass isNil",
 messageSends: ["isNil", "collectionClass"],
@@ -835,10 +1080,10 @@ selector: "collection",
 category: 'accessing',
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.HashedCollection._fromPairs_([smalltalk.send("a","__minus_gt",[(1)]),smalltalk.send("b","__minus_gt",[(2)]),smalltalk.send("c","__minus_gt",[(3)]),smalltalk.send("d","__minus_gt",[(-4)])]);
+return smalltalk.withContext(function($ctx1) { 
+$1=smalltalk.HashedCollection._fromPairs_([_st("a").__minus_gt((1)),_st("b").__minus_gt((2)),_st("c").__minus_gt((3)),_st("d").__minus_gt((-4))]);
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"collection",{}, smalltalk.HashedCollectionTest)})},
 args: [],
 source: "collection\x0a\x09^ #{ 'a' -> 1. 'b' -> 2. 'c' -> 3. 'd' -> -4 }",
 messageSends: ["->"],
@@ -853,10 +1098,10 @@ selector: "collectionWithDuplicates",
 category: 'accessing',
 fn: function (){
 var self=this;
-var $1;
-$1=smalltalk.HashedCollection._fromPairs_([smalltalk.send("a","__minus_gt",[(1)]),smalltalk.send("b","__minus_gt",[(2)]),smalltalk.send("c","__minus_gt",[(3)]),smalltalk.send("d","__minus_gt",[(-4)]),smalltalk.send("e","__minus_gt",[(1)]),smalltalk.send("f","__minus_gt",[(2)]),smalltalk.send("g","__minus_gt",[(10)])]);
+return smalltalk.withContext(function($ctx1) { 
+$1=smalltalk.HashedCollection._fromPairs_([_st("a").__minus_gt((1)),_st("b").__minus_gt((2)),_st("c").__minus_gt((3)),_st("d").__minus_gt((-4)),_st("e").__minus_gt((1)),_st("f").__minus_gt((2)),_st("g").__minus_gt((10))]);
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"collectionWithDuplicates",{}, smalltalk.HashedCollectionTest)})},
 args: [],
 source: "collectionWithDuplicates\x0a\x09^ #{ 'a' -> 1. 'b' -> 2. 'c' -> 3. 'd' -> -4. 'e' -> 1. 'f' -> 2. 'g' -> 10 }",
 messageSends: ["->"],
@@ -872,8 +1117,10 @@ selector: "collectionClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return (smalltalk.HashedCollection || HashedCollection);
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=(smalltalk.HashedCollection || HashedCollection);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"collectionClass",{}, smalltalk.HashedCollectionTest.klass)})},
 args: [],
 source: "collectionClass\x0a\x09^ HashedCollection",
 messageSends: [],
@@ -890,16 +1137,16 @@ selector: "collection",
 category: 'accessing',
 fn: function (){
 var self=this;
-var $2,$3,$1;
-$2=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send($2,"_at_put_",[(1),(1)]);
-smalltalk.send($2,"_at_put_",["a",(2)]);
-smalltalk.send($2,"_at_put_",[true,(3)]);
-smalltalk.send($2,"_at_put_",[(4),(-4)]);
-$3=smalltalk.send($2,"_yourself",[]);
+return smalltalk.withContext(function($ctx1) { 
+$2=_st((smalltalk.Dictionary || Dictionary))._new();
+_st($2)._at_put_((1),(1));
+_st($2)._at_put_("a",(2));
+_st($2)._at_put_(true,(3));
+_st($2)._at_put_((4),(-4));
+$3=_st($2)._yourself();
 $1=$3;
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"collection",{}, smalltalk.DictionaryTest)})},
 args: [],
 source: "collection\x0a\x09^ Dictionary new\x0a\x09\x09at: 1 put: 1;\x0a\x09\x09at: 'a' put: 2;\x0a\x09\x09at: true put: 3;\x0a\x09\x09at: 4 put: -4;\x0a\x09\x09yourself",
 messageSends: ["at:put:", "new", "yourself"],
@@ -914,19 +1161,19 @@ selector: "collectionWithDuplicates",
 category: 'accessing',
 fn: function (){
 var self=this;
-var $2,$3,$1;
-$2=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send($2,"_at_put_",[(1),(1)]);
-smalltalk.send($2,"_at_put_",["a",(2)]);
-smalltalk.send($2,"_at_put_",[true,(3)]);
-smalltalk.send($2,"_at_put_",[(4),(-4)]);
-smalltalk.send($2,"_at_put_",["b",(1)]);
-smalltalk.send($2,"_at_put_",[(3),(3)]);
-smalltalk.send($2,"_at_put_",[false,(12)]);
-$3=smalltalk.send($2,"_yourself",[]);
+return smalltalk.withContext(function($ctx1) { 
+$2=_st((smalltalk.Dictionary || Dictionary))._new();
+_st($2)._at_put_((1),(1));
+_st($2)._at_put_("a",(2));
+_st($2)._at_put_(true,(3));
+_st($2)._at_put_((4),(-4));
+_st($2)._at_put_("b",(1));
+_st($2)._at_put_((3),(3));
+_st($2)._at_put_(false,(12));
+$3=_st($2)._yourself();
 $1=$3;
 return $1;
-},
+}, function($ctx1) {$ctx1.fill(self,"collectionWithDuplicates",{}, smalltalk.DictionaryTest)})},
 args: [],
 source: "collectionWithDuplicates\x0a\x09^ Dictionary new\x0a\x09\x09at: 1 put: 1;\x0a\x09\x09at: 'a' put: 2;\x0a\x09\x09at: true put: 3;\x0a\x09\x09at: 4 put: -4;\x0a\x09\x09at: 'b' put: 1;\x0a\x09\x09at: 3 put: 3;\x0a\x09\x09at: false put: 12;\x0a\x09\x09yourself",
 messageSends: ["at:put:", "new", "yourself"],
@@ -942,20 +1189,20 @@ category: 'tests',
 fn: function (){
 var self=this;
 var d;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(d,"_at_put_",["hello","world"]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_at_",["hello"]),"__eq",["world"])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_at_ifAbsent_",["hello",(function(){
-return nil;
-})]),"__eq",["world"])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(d,"_at_ifAbsent_",["foo",(function(){
-return nil;
-})]),"__eq",["world"])]);
-smalltalk.send(d,"_at_put_",[(1),(2)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_at_",[(1)]),"__eq",[(2)])]);
-smalltalk.send(d,"_at_put_",[smalltalk.send((1),"__at",[(3)]),(3)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_at_",[smalltalk.send((1),"__at",[(3)])]),"__eq",[(3)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(d)._at_put_("hello","world");
+_st(self)._assert_(_st(_st(d)._at_("hello")).__eq("world"));
+_st(self)._assert_(_st(_st(d)._at_ifAbsent_("hello",(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq("world"));
+_st(self)._deny_(_st(_st(d)._at_ifAbsent_("foo",(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq("world"));
+_st(d)._at_put_((1),(2));
+_st(self)._assert_(_st(_st(d)._at_((1))).__eq((2)));
+_st(d)._at_put_(_st((1)).__at((3)),(3));
+_st(self)._assert_(_st(_st(d)._at_(_st((1)).__at((3)))).__eq((3)));
+return self}, function($ctx1) {$ctx1.fill(self,"testAccessing",{d:d}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testAccessing\x0a\x09| d |\x0a\x0a\x09d := Dictionary new.\x0a\x0a\x09d at: 'hello' put: 'world'.\x0a\x09self assert: (d at: 'hello') = 'world'.\x0a\x09self assert: (d at: 'hello' ifAbsent: [nil]) = 'world'.\x0a\x09self deny: (d at: 'foo' ifAbsent: [nil]) = 'world'.\x0a\x0a\x09d at: 1 put: 2.\x0a\x09self assert: (d at: 1) = 2.\x0a\x0a\x09d at: 1@3 put: 3.\x0a\x09self assert: (d at: 1@3) = 3",
 messageSends: ["new", "at:put:", "assert:", "=", "at:", "at:ifAbsent:", "deny:", "@"],
@@ -970,8 +1217,8 @@ selector: "testDynamicDictionaries",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.HashedCollection._fromPairs_([smalltalk.send("hello","__minus_gt",[(1)])]),"_asDictionary",[]),"__eq",[smalltalk.send((smalltalk.Dictionary || Dictionary),"_with_",[smalltalk.send("hello","__minus_gt",[(1)])])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testDynamicDictionaries",{}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testDynamicDictionaries\x0a\x09self assert: #{'hello' -> 1} asDictionary = (Dictionary with: 'hello' -> 1)",
 messageSends: ["assert:", "=", "with:", "->", "asDictionary"],
@@ -986,36 +1233,35 @@ selector: "testEquality",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1,$2,$3,$4,$5,$6,$7,$8,$9,$10;
-var d1;
-var d2;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]),"__eq",[smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[])])]);
-$1=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send($1,"_at_put_",[(1),(2)]);
-$2=smalltalk.send($1,"_yourself",[]);
+var d1,d2;
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((smalltalk.Dictionary || Dictionary))._new()).__eq(_st((smalltalk.Dictionary || Dictionary))._new()));
+$1=_st((smalltalk.Dictionary || Dictionary))._new();
+_st($1)._at_put_((1),(2));
+$2=_st($1)._yourself();
 d1=$2;
-$3=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send($3,"_at_put_",[(1),(2)]);
-$4=smalltalk.send($3,"_yourself",[]);
+$3=_st((smalltalk.Dictionary || Dictionary))._new();
+_st($3)._at_put_((1),(2));
+$4=_st($3)._yourself();
 d2=$4;
-smalltalk.send(self,"_assert_",[smalltalk.send(d1,"__eq",[d2])]);
-$5=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send($5,"_at_put_",[(1),(3)]);
-$6=smalltalk.send($5,"_yourself",[]);
+_st(self)._assert_(_st(d1).__eq(d2));
+$5=_st((smalltalk.Dictionary || Dictionary))._new();
+_st($5)._at_put_((1),(3));
+$6=_st($5)._yourself();
 d2=$6;
-smalltalk.send(self,"_deny_",[smalltalk.send(d1,"__eq",[d2])]);
-$7=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send($7,"_at_put_",[(2),(2)]);
-$8=smalltalk.send($7,"_yourself",[]);
+_st(self)._deny_(_st(d1).__eq(d2));
+$7=_st((smalltalk.Dictionary || Dictionary))._new();
+_st($7)._at_put_((2),(2));
+$8=_st($7)._yourself();
 d2=$8;
-smalltalk.send(self,"_deny_",[smalltalk.send(d1,"__eq",[d2])]);
-$9=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send($9,"_at_put_",[(1),(2)]);
-smalltalk.send($9,"_at_put_",[(3),(4)]);
-$10=smalltalk.send($9,"_yourself",[]);
+_st(self)._deny_(_st(d1).__eq(d2));
+$9=_st((smalltalk.Dictionary || Dictionary))._new();
+_st($9)._at_put_((1),(2));
+_st($9)._at_put_((3),(4));
+$10=_st($9)._yourself();
 d2=$10;
-smalltalk.send(self,"_deny_",[smalltalk.send(d1,"__eq",[d2])]);
-return self},
+_st(self)._deny_(_st(d1).__eq(d2));
+return self}, function($ctx1) {$ctx1.fill(self,"testEquality",{d1:d1,d2:d2}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testEquality\x0a\x09| d1 d2 |\x0a\x0a\x09self assert: Dictionary new = Dictionary new.\x0a\x09\x09\x0a\x09d1 := Dictionary new at: 1 put: 2; yourself.\x0a\x09d2 := Dictionary new at: 1 put: 2; yourself.\x0a\x09self assert: d1 = d2.\x0a\x0a\x09d2 := Dictionary new at: 1 put: 3; yourself.\x0a\x09self deny: d1 = d2.\x0a\x0a\x09d2 := Dictionary new at: 2 put: 2; yourself.\x0a\x09self deny: d1 = d2.\x0a\x0a\x09d2 := Dictionary new at: 1 put: 2; at: 3 put: 4; yourself.\x0a\x09self deny: d1 = d2.",
 messageSends: ["assert:", "=", "new", "at:put:", "yourself", "deny:"],
@@ -1030,16 +1276,15 @@ selector: "testIfAbsent",
 category: 'tests',
 fn: function (){
 var self=this;
-var d;
-var visited;
-visited=false;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(d,"_at_ifAbsent_",["hello",(function(){
-visited=true;
+var d,visited;
+return smalltalk.withContext(function($ctx1) { 
+d=_st((smalltalk.Dictionary || Dictionary))._new();
+_st(d)._at_ifAbsent_("hello",(function(){
+return smalltalk.withContext(function($ctx2) {
 return visited;
-})]);
-smalltalk.send(self,"_assert_",[visited]);
-return self},
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(self)._assert_(visited);
+return self}, function($ctx1) {$ctx1.fill(self,"testIfAbsent",{d:d,visited:visited}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testIfAbsent\x0a\x0a\x09| d visited |\x0a\x09visited := false.\x0a\x09d := Dictionary new.\x0a\x0a\x09d at: 'hello' ifAbsent: [ visited := true ].\x0a\x09self assert: visited.",
 messageSends: ["new", "at:ifAbsent:", "assert:"],
@@ -1054,25 +1299,23 @@ selector: "testIfPresent",
 category: 'tests',
 fn: function (){
 var self=this;
-var d;
-var visited;
-var absent;
-visited=false;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(d,"_at_put_",["hello","world"]);
-smalltalk.send(d,"_at_ifPresent_",["hello",(function(value){
-visited=value;
+var d,visited,absent;
+return smalltalk.withContext(function($ctx1) { 
+d=_st((smalltalk.Dictionary || Dictionary))._new();
+_st(d)._at_put_("hello","world");
+_st(d)._at_ifPresent_("hello",(function(value){
+return smalltalk.withContext(function($ctx2) {
 return visited;
-})]);
-smalltalk.send(self,"_assert_",[smalltalk.send(visited,"__eq",["world"])]);
-absent=smalltalk.send(d,"_at_ifPresent_",["bye",(function(value){
-visited=value;
+}, function($ctx2) {$ctx2.fillBlock({value:value},$ctx1)})}));
+_st(self)._assert_(_st(visited).__eq("world"));
+absent=_st(d)._at_ifPresent_("bye",(function(value){
+return smalltalk.withContext(function($ctx2) {
 return visited;
-})]);
-smalltalk.send(self,"_assert_",[smalltalk.send(absent,"_isNil",[])]);
-return self},
+}, function($ctx2) {$ctx2.fillBlock({value:value},$ctx1)})}));
+_st(self)._assert_(_st(absent)._isNil());
+return self}, function($ctx1) {$ctx1.fill(self,"testIfPresent",{d:d,visited:visited,absent:absent}, smalltalk.DictionaryTest)})},
 args: [],
-source: "testIfPresent\x0a\x0a\x09| d visited absent |\x0a\x09visited := false.\x0a\x09d := Dictionary new.\x0a\x09d at: 'hello' put: 'world'.\x0a\x0a\x09d at: 'hello' ifPresent: [ :value | visited := value ].\x0a\x09self assert: visited = 'world'.\x0a\x0a\x09absent := d at: 'bye' ifPresent: [ :value | visited := value ].\x0a\x09self assert: absent isNil.\x0a",
+source: "testIfPresent\x0a\x0a\x09| d visited absent |\x0a\x09visited := false.\x0a\x09d := Dictionary new.\x0a\x09d at: 'hello' put: 'world'.\x0a\x0a\x09d at: 'hello' ifPresent: [ :value | visited := value ].\x0a\x09self assert: visited = 'world'.\x0a\x0a\x09absent := d at: 'bye' ifPresent: [ :value | visited := value ].\x0a\x09self assert: absent isNil.",
 messageSends: ["new", "at:put:", "at:ifPresent:", "assert:", "=", "isNil"],
 referencedClasses: ["Dictionary"]
 }),
@@ -1085,28 +1328,27 @@ selector: "testIfPresentIfAbsent",
 category: 'tests',
 fn: function (){
 var self=this;
-var d;
-var visited;
-visited=false;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(d,"_at_put_",["hello","world"]);
-smalltalk.send(d,"_at_ifPresent_ifAbsent_",["hello",(function(value){
-visited=value;
+var d,visited;
+return smalltalk.withContext(function($ctx1) { 
+d=_st((smalltalk.Dictionary || Dictionary))._new();
+_st(d)._at_put_("hello","world");
+_st(d)._at_ifPresent_ifAbsent_("hello",(function(value){
+return smalltalk.withContext(function($ctx2) {
 return visited;
-}),(function(){
-visited=true;
+}, function($ctx2) {$ctx2.fillBlock({value:value},$ctx1)})}),(function(){
+return smalltalk.withContext(function($ctx2) {
 return visited;
-})]);
-smalltalk.send(self,"_assert_",[smalltalk.send(visited,"__eq",["world"])]);
-smalltalk.send(d,"_at_ifPresent_ifAbsent_",["buy",(function(value){
-visited=value;
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(self)._assert_(_st(visited).__eq("world"));
+_st(d)._at_ifPresent_ifAbsent_("buy",(function(value){
+return smalltalk.withContext(function($ctx2) {
 return visited;
-}),(function(){
-visited=true;
+}, function($ctx2) {$ctx2.fillBlock({value:value},$ctx1)})}),(function(){
+return smalltalk.withContext(function($ctx2) {
 return visited;
-})]);
-smalltalk.send(self,"_assert_",[visited]);
-return self},
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(self)._assert_(visited);
+return self}, function($ctx1) {$ctx1.fill(self,"testIfPresentIfAbsent",{d:d,visited:visited}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testIfPresentIfAbsent\x0a\x0a\x09| d visited |\x0a\x09visited := false.\x0a\x09d := Dictionary new.\x0a\x09d at: 'hello' put: 'world'.\x0a\x0a\x09d at: 'hello' ifPresent: [ :value | visited := value ] ifAbsent: [ visited := true ].\x0a\x09self assert: visited = 'world'.\x0a\x0a\x09d at: 'buy' ifPresent: [ :value | visited := value ] ifAbsent: [ visited := true ].\x0a\x09self assert: visited.",
 messageSends: ["new", "at:put:", "at:ifPresent:ifAbsent:", "assert:", "="],
@@ -1122,12 +1364,12 @@ category: 'tests',
 fn: function (){
 var self=this;
 var d;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(d,"_at_put_",[(1),(2)]);
-smalltalk.send(d,"_at_put_",[(2),(3)]);
-smalltalk.send(d,"_at_put_",[(3),(4)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_keys",[]),"__eq",[[(1), (2), (3)]])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(d)._at_put_((1),(2));
+_st(d)._at_put_((2),(3));
+_st(d)._at_put_((3),(4));
+_st(self)._assert_(_st(_st(d)._keys()).__eq([(1), (2), (3)]));
+return self}, function($ctx1) {$ctx1.fill(self,"testKeys",{d:d}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testKeys\x0a\x09| d |\x0a\x0a\x09d := Dictionary new.\x0a\x09d at: 1 put: 2.\x0a\x09d at: 2 put: 3.\x0a\x09d at: 3 put: 4.\x0a\x0a\x09self assert: d keys = #(1 2 3)",
 messageSends: ["new", "at:put:", "assert:", "=", "keys"],
@@ -1142,13 +1384,13 @@ selector: "testPrintString",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1,$2;
-$1=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send($1,"_at_put_",["firstname","James"]);
-smalltalk.send($1,"_at_put_",["lastname","Bond"]);
-$2=smalltalk.send($1,"_printString",[]);
-smalltalk.send(self,"_assert_equals_",["a Dictionary('firstname'->'James' , 'lastname'->'Bond')",$2]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+$1=_st((smalltalk.Dictionary || Dictionary))._new();
+_st($1)._at_put_("firstname","James");
+_st($1)._at_put_("lastname","Bond");
+$2=_st($1)._printString();
+_st(self)._assert_equals_("a Dictionary('firstname'->'James' , 'lastname'->'Bond')",$2);
+return self}, function($ctx1) {$ctx1.fill(self,"testPrintString",{}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testPrintString\x0a\x09self\x0a\x09\x09assert: 'a Dictionary(''firstname''->''James'' , ''lastname''->''Bond'')' \x0a\x09\x09equals: (Dictionary new \x0a                         \x09at:'firstname' put: 'James';\x0a                        \x09at:'lastname' put: 'Bond';\x0a                        \x09printString)",
 messageSends: ["assert:equals:", "at:put:", "new", "printString"],
@@ -1163,19 +1405,18 @@ selector: "testRemoveKey",
 category: 'tests',
 fn: function (){
 var self=this;
-var d;
-var key;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(d,"_at_put_",[(1),(2)]);
-smalltalk.send(d,"_at_put_",[(2),(3)]);
-smalltalk.send(d,"_at_put_",[(3),(4)]);
+var d,key;
+return smalltalk.withContext(function($ctx1) { 
+_st(d)._at_put_((1),(2));
+_st(d)._at_put_((2),(3));
+_st(d)._at_put_((3),(4));
 key=(2);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_keys",[]),"__eq",[[(1), (2), (3)]])]);
-smalltalk.send(d,"_removeKey_",[key]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_keys",[]),"__eq",[[(1), (3)]])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_values",[]),"__eq",[[(2), (4)]])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(d,"_includesKey_",[(2)])]);
-return self},
+_st(self)._assert_(_st(_st(d)._keys()).__eq([(1), (2), (3)]));
+_st(d)._removeKey_(key);
+_st(self)._assert_(_st(_st(d)._keys()).__eq([(1), (3)]));
+_st(self)._assert_(_st(_st(d)._values()).__eq([(2), (4)]));
+_st(self)._deny_(_st(d)._includesKey_((2)));
+return self}, function($ctx1) {$ctx1.fill(self,"testRemoveKey",{d:d,key:key}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testRemoveKey\x0a    | d key |\x0a\x0a    d := Dictionary new.\x0a    d at: 1 put: 2.\x0a    d at: 2 put: 3.\x0a    d at: 3 put: 4.\x0a\x0a    key := 2.\x0a\x0a    self assert: d keys = #(1 2 3).\x0a\x0a    d removeKey: key.\x0a    self assert: d keys = #(1 3).\x0a    self assert: d values = #(2 4).\x0a    self deny: (d includesKey: 2)",
 messageSends: ["new", "at:put:", "assert:", "=", "keys", "removeKey:", "values", "deny:", "includesKey:"],
@@ -1190,23 +1431,22 @@ selector: "testRemoveKeyIfAbsent",
 category: 'tests',
 fn: function (){
 var self=this;
-var d;
-var key;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(d,"_at_put_",[(1),(2)]);
-smalltalk.send(d,"_at_put_",[(2),(3)]);
-smalltalk.send(d,"_at_put_",[(3),(4)]);
+var d,key;
+return smalltalk.withContext(function($ctx1) { 
+_st(d)._at_put_((1),(2));
+_st(d)._at_put_((2),(3));
+_st(d)._at_put_((3),(4));
 key=(2);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_removeKey_",[key]),"__eq",[(3)])]);
+_st(self)._assert_(_st(_st(d)._removeKey_(key)).__eq((3)));
 key=(3);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_removeKey_ifAbsent_",[key,(function(){
-return (42);
-})]),"__eq",[(4)])]);
+_st(self)._assert_(_st(_st(d)._removeKey_ifAbsent_(key,(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq((4)));
 key="why";
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_removeKey_ifAbsent_",[key,(function(){
-return (42);
-})]),"__eq",[(42)])]);
-return self},
+_st(self)._assert_(_st(_st(d)._removeKey_ifAbsent_(key,(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq((42)));
+return self}, function($ctx1) {$ctx1.fill(self,"testRemoveKeyIfAbsent",{d:d,key:key}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testRemoveKeyIfAbsent\x0a    | d key |\x0a\x0a    d := Dictionary new.\x0a    d at: 1 put: 2.\x0a    d at: 2 put: 3.\x0a    d at: 3 put: 4.\x0a\x0a    key := 2.\x0a    self assert: (d removeKey: key) = 3.\x0a\x0a    key := 3.\x0a    self assert: (d removeKey: key ifAbsent: [42]) = 4.\x0a\x0a    key := 'why'.\x0a    self assert: (d removeKey: key ifAbsent: [42] ) = 42.",
 messageSends: ["new", "at:put:", "assert:", "=", "removeKey:", "removeKey:ifAbsent:"],
@@ -1222,13 +1462,13 @@ category: 'tests',
 fn: function (){
 var self=this;
 var d;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_size",[]),"__eq",[(0)])]);
-smalltalk.send(d,"_at_put_",[(1),(2)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_size",[]),"__eq",[(1)])]);
-smalltalk.send(d,"_at_put_",[(2),(3)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_size",[]),"__eq",[(2)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st(d)._size()).__eq((0)));
+_st(d)._at_put_((1),(2));
+_st(self)._assert_(_st(_st(d)._size()).__eq((1)));
+_st(d)._at_put_((2),(3));
+_st(self)._assert_(_st(_st(d)._size()).__eq((2)));
+return self}, function($ctx1) {$ctx1.fill(self,"testSize",{d:d}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testSize\x0a\x09| d |\x0a\x0a\x09d := Dictionary new.\x0a\x09self assert: d size = 0.\x0a\x0a\x09d at: 1 put: 2.\x0a\x09self assert: d size = 1.\x0a\x0a\x09d at: 2 put: 3.\x0a\x09self assert: d size = 2.",
 messageSends: ["new", "assert:", "=", "size", "at:put:"],
@@ -1244,12 +1484,12 @@ category: 'tests',
 fn: function (){
 var self=this;
 var d;
-d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
-smalltalk.send(d,"_at_put_",[(1),(2)]);
-smalltalk.send(d,"_at_put_",[(2),(3)]);
-smalltalk.send(d,"_at_put_",[(3),(4)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_values",[]),"__eq",[[(2), (3), (4)]])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(d)._at_put_((1),(2));
+_st(d)._at_put_((2),(3));
+_st(d)._at_put_((3),(4));
+_st(self)._assert_(_st(_st(d)._values()).__eq([(2), (3), (4)]));
+return self}, function($ctx1) {$ctx1.fill(self,"testValues",{d:d}, smalltalk.DictionaryTest)})},
 args: [],
 source: "testValues\x0a\x09| d |\x0a\x0a\x09d := Dictionary new.\x0a\x09d at: 1 put: 2.\x0a\x09d at: 2 put: 3.\x0a\x09d at: 3 put: 4.\x0a\x0a\x09self assert: d values = #(2 3 4)",
 messageSends: ["new", "at:put:", "assert:", "=", "values"],
@@ -1265,8 +1505,10 @@ selector: "collectionClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return (smalltalk.Dictionary || Dictionary);
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=(smalltalk.Dictionary || Dictionary);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"collectionClass",{}, smalltalk.DictionaryTest.klass)})},
 args: [],
 source: "collectionClass\x0a\x09^ Dictionary",
 messageSends: [],
@@ -1283,11 +1525,11 @@ selector: "testAt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_at_",[(4)]),"__eq",[(-4)])]);
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send(smalltalk.send(self,"_collection",[]),"_at_",[(5)]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testAt",{}, smalltalk.SequenceableCollectionTest)})},
 args: [],
 source: "testAt\x0a\x09self assert: (self collection at: 4) = -4.\x0a\x09self should: [ self collection at: 5 ] raise: Error",
 messageSends: ["assert:", "=", "at:", "collection", "should:raise:"],
@@ -1302,10 +1544,10 @@ selector: "testAtIfAbsent",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_at_ifAbsent_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_size",[]),"__plus",[(1)]),(function(){
-return "none";
-})]),"__eq",["none"])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq("none"));
+return self}, function($ctx1) {$ctx1.fill(self,"testAtIfAbsent",{}, smalltalk.SequenceableCollectionTest)})},
 args: [],
 source: "testAtIfAbsent\x0a\x09self assert: (self collection at: (self collection size + 1) ifAbsent: [ 'none' ]) = 'none'",
 messageSends: ["assert:", "=", "at:ifAbsent:", "+", "size", "collection"],
@@ -1324,22 +1566,22 @@ category: 'testing',
 fn: function (){
 var self=this;
 var array;
-array=["hello", "world"];
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_",[(1)]),"hello"]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_",[(2)]),"world"]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_ifAbsent_",[(2),(function(){
-return "not found";
-})]),"world"]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_ifAbsent_",[(0),(function(){
-return "not found";
-})]),"not found"]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_ifAbsent_",[(-10),(function(){
-return "not found";
-})]),"not found"]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_ifAbsent_",[(3),(function(){
-return "not found";
-})]),"not found"]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st(array)._at_((1)),"hello");
+_st(self)._assert_equals_(_st(array)._at_((2)),"world");
+_st(self)._assert_equals_(_st(array)._at_ifAbsent_((2),(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})),"world");
+_st(self)._assert_equals_(_st(array)._at_ifAbsent_((0),(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})),"not found");
+_st(self)._assert_equals_(_st(array)._at_ifAbsent_((-10),(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})),"not found");
+_st(self)._assert_equals_(_st(array)._at_ifAbsent_((3),(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})),"not found");
+return self}, function($ctx1) {$ctx1.fill(self,"testAtIfAbsent",{array:array}, smalltalk.ArrayTest)})},
 args: [],
 source: "testAtIfAbsent\x0a\x09| array |\x0a\x09array := #('hello' 'world').\x0a\x09self assert: (array at: 1) equals: 'hello'.\x0a\x09self assert: (array at: 2) equals: 'world'.\x0a\x09self assert: (array at: 2 ifAbsent: ['not found']) equals: 'world'.\x0a\x09self assert: (array at: 0 ifAbsent: ['not found']) equals: 'not found'.\x0a\x09self assert: (array at: -10 ifAbsent: ['not found']) equals: 'not found'.\x0a\x09self assert: (array at: 3 ifAbsent: ['not found']) equals: 'not found'.",
 messageSends: ["assert:equals:", "at:", "at:ifAbsent:"],
@@ -1354,8 +1596,8 @@ selector: "testFirstN",
 category: 'testing',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[[(1),(2),(3)],smalltalk.send([(1),(2),(3),(4),(5)],"_first_",[(3)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testFirstN",{}, smalltalk.ArrayTest)})},
 args: [],
 source: "testFirstN\x0a\x09self assert: {1. 2. 3} equals: ({1. 2. 3. 4. 5} first: 3).",
 messageSends: ["assert:equals:", "first:"],
@@ -1370,10 +1612,10 @@ selector: "testIfEmpty",
 category: 'testing',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["zork",smalltalk.send("","_ifEmpty_",[(function(){
-return "zork";
-})])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})));
+return self}, function($ctx1) {$ctx1.fill(self,"testIfEmpty",{}, smalltalk.ArrayTest)})},
 args: [],
 source: "testIfEmpty\x0a\x09self assert: 'zork' equals: ( '' ifEmpty: ['zork'] )",
 messageSends: ["assert:equals:", "ifEmpty:"],
@@ -1388,23 +1630,25 @@ selector: "testPrintString",
 category: 'testing',
 fn: function (){
 var self=this;
-var $1,$2;
 var array;
-array=smalltalk.send((smalltalk.Array || Array),"_new",[]);
-smalltalk.send(self,"_assert_equals_",["a Array ()",smalltalk.send(array,"_printString",[])]);
-smalltalk.send(array,"_add_",[(1)]);
-$1=smalltalk.send(array,"_add_",[(3)]);
-smalltalk.send(self,"_assert_equals_",["a Array (1 3)",smalltalk.send(array,"_printString",[])]);
-smalltalk.send(array,"_add_",["foo"]);
-smalltalk.send(self,"_assert_equals_",["a Array (1 3 'foo')",smalltalk.send(array,"_printString",[])]);
-smalltalk.send(array,"_remove_",[(1)]);
-$2=smalltalk.send(array,"_remove_",[(3)]);
-smalltalk.send(self,"_assert_equals_",["a Array ('foo')",smalltalk.send(array,"_printString",[])]);
-smalltalk.send(array,"_addLast_",[(3)]);
-smalltalk.send(self,"_assert_equals_",["a Array ('foo' 3)",smalltalk.send(array,"_printString",[])]);
-smalltalk.send(array,"_addLast_",[(3)]);
-smalltalk.send(self,"_assert_equals_",["a Array ('foo' 3 3)",smalltalk.send(array,"_printString",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+array=_st((smalltalk.Array || Array))._new();
+_st(self)._assert_equals_("a Array ()",_st(array)._printString());
+$1=array;
+_st($1)._add_((1));
+$2=_st($1)._add_((3));
+_st(self)._assert_equals_("a Array (1 3)",_st(array)._printString());
+_st(array)._add_("foo");
+_st(self)._assert_equals_("a Array (1 3 'foo')",_st(array)._printString());
+$3=array;
+_st($3)._remove_((1));
+$4=_st($3)._remove_((3));
+_st(self)._assert_equals_("a Array ('foo')",_st(array)._printString());
+_st(array)._addLast_((3));
+_st(self)._assert_equals_("a Array ('foo' 3)",_st(array)._printString());
+_st(array)._addLast_((3));
+_st(self)._assert_equals_("a Array ('foo' 3 3)",_st(array)._printString());
+return self}, function($ctx1) {$ctx1.fill(self,"testPrintString",{array:array}, smalltalk.ArrayTest)})},
 args: [],
 source: "testPrintString\x0a\x09| array |\x0a\x09array := Array new.\x0a\x09self assert: 'a Array ()' equals: ( array printString ).\x0a\x09array add: 1; add: 3.\x0a\x09self assert: 'a Array (1 3)' equals: ( array printString ).\x0a\x09array add: 'foo'.\x0a\x09self assert: 'a Array (1 3 ''foo'')' equals: ( array printString ).\x0a\x09array remove: 1; remove: 3.\x0a\x09self assert: 'a Array (''foo'')' equals: ( array printString ).\x0a\x09array addLast: 3.\x0a\x09self assert: 'a Array (''foo'' 3)' equals: ( array printString ).\x0a\x09array addLast: 3.\x0a\x09self assert: 'a Array (''foo'' 3 3)' equals: ( array printString ).",
 messageSends: ["new", "assert:equals:", "printString", "add:", "remove:", "addLast:"],
@@ -1420,8 +1664,10 @@ selector: "collectionClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return (smalltalk.Array || Array);
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=(smalltalk.Array || Array);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"collectionClass",{}, smalltalk.ArrayTest.klass)})},
 args: [],
 source: "collectionClass\x0a\x09^ Array",
 messageSends: [],
@@ -1438,8 +1684,8 @@ selector: "collection",
 category: 'accessing',
 fn: function (){
 var self=this;
-return "hello";
-},
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"collection",{}, smalltalk.StringTest)})},
 args: [],
 source: "collection\x0a\x09^'hello'",
 messageSends: [],
@@ -1454,8 +1700,8 @@ selector: "collectionWithDuplicates",
 category: 'accessing',
 fn: function (){
 var self=this;
-return "abbaerte";
-},
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"collectionWithDuplicates",{}, smalltalk.StringTest)})},
 args: [],
 source: "collectionWithDuplicates\x0a\x09^ 'abbaerte'",
 messageSends: [],
@@ -1470,13 +1716,13 @@ selector: "testAddRemove",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send("hello","_add_",["a"]);
-}),(smalltalk.Error || Error)]);
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send("hello","_remove_",["h"]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testAddRemove",{}, smalltalk.StringTest)})},
 args: [],
 source: "testAddRemove\x0a\x09self should: ['hello' add: 'a'] raise: Error.\x0a\x09self should: ['hello' remove: 'h'] raise: Error",
 messageSends: ["should:raise:", "add:", "remove:"],
@@ -1491,8 +1737,8 @@ selector: "testAsArray",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_asArray",[]),"__eq",[["h", "e", "l", "l", "o"]])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testAsArray",{}, smalltalk.StringTest)})},
 args: [],
 source: "testAsArray\x0a\x09self assert: 'hello' asArray = #('h' 'e' 'l' 'l' 'o').",
 messageSends: ["assert:", "=", "asArray"],
@@ -1507,12 +1753,12 @@ selector: "testAt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_at_",[(1)]),"__eq",["h"])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_at_",[(5)]),"__eq",["o"])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_at_ifAbsent_",[(6),(function(){
-return nil;
-})]),"__eq",[nil])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st("hello")._at_((5))).__eq("o"));
+_st(self)._assert_(_st(_st("hello")._at_ifAbsent_((6),(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq(nil));
+return self}, function($ctx1) {$ctx1.fill(self,"testAt",{}, smalltalk.StringTest)})},
 args: [],
 source: "testAt\x0a\x09self assert: ('hello' at: 1) = 'h'.\x0a\x09self assert: ('hello' at: 5) = 'o'.\x0a\x09self assert: ('hello' at: 6 ifAbsent: [nil]) = nil",
 messageSends: ["assert:", "=", "at:", "at:ifAbsent:"],
@@ -1527,10 +1773,10 @@ selector: "testAtPut",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send("hello","_at_put_",[(1),"a"]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testAtPut",{}, smalltalk.StringTest)})},
 args: [],
 source: "testAtPut\x0a\x09\x22String instances are read-only\x22\x0a\x09self should: ['hello' at: 1 put: 'a'] raise: Error",
 messageSends: ["should:raise:", "at:put:"],
@@ -1546,11 +1792,11 @@ category: 'tests',
 fn: function (){
 var self=this;
 var newCollection;
-newCollection="hheelllloo";
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_collect_",[(function(each){
-return smalltalk.send(each,"__comma",[each]);
-})]),newCollection]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assertSameContents_as_(_st(_st(self)._collection())._collect_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})),newCollection);
+return self}, function($ctx1) {$ctx1.fill(self,"testCollect",{newCollection:newCollection}, smalltalk.StringTest)})},
 args: [],
 source: "testCollect\x0a\x09| newCollection |\x0a\x09newCollection := 'hheelllloo'.\x0a\x09self \x0a\x09\x09assertSameContents: (self collection collect: [ :each |\x0a\x09\x09\x09each, each ])\x0a\x09\x09as: newCollection",
 messageSends: ["assertSameContents:as:", "collect:", ",", "collection"],
@@ -1565,8 +1811,8 @@ selector: "testCopyWithoutAll",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["hello world",smalltalk.send("*hello* *world*","_copyWithoutAll_",["*"])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testCopyWithoutAll",{}, smalltalk.StringTest)})},
 args: [],
 source: "testCopyWithoutAll\x0a\x09self \x0a\x09\x09assert: 'hello world' \x0a\x09\x09equals: ('*hello* *world*' copyWithoutAll: '*')",
 messageSends: ["assert:equals:", "copyWithoutAll:"],
@@ -1581,15 +1827,15 @@ selector: "testDetect",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
-return smalltalk.send(each,"__eq",["h"]);
-})]),"__eq",["h"])]);
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
-return smalltalk.send(each,"__eq",[(6)]);
-})]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}))).__eq("h"));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testDetect",{}, smalltalk.StringTest)})},
 args: [],
 source: "testDetect\x0a\x09self assert: (self collection detect: [ :each | each = 'h' ]) = 'h'.\x0a\x09self \x0a\x09\x09should: [ self collection detect: [ :each | each = 6 ] ]\x0a\x09\x09raise: Error",
 messageSends: ["assert:", "=", "detect:", "collection", "should:raise:"],
@@ -1604,12 +1850,12 @@ selector: "testEquality",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send("hello","__eq",["hello"])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("hello","__eq",["world"])]);
-smalltalk.send(self,"_assert_",[smalltalk.send("hello","__eq",[smalltalk.send("hello","_yourself",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_yourself",[]),"__eq",["hello"])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("","__eq",[(0)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st("hello").__eq("world"));
+_st(self)._assert_(_st("hello").__eq(_st("hello")._yourself()));
+_st(self)._assert_(_st(_st("hello")._yourself()).__eq("hello"));
+_st(self)._deny_(_st("").__eq((0)));
+return self}, function($ctx1) {$ctx1.fill(self,"testEquality",{}, smalltalk.StringTest)})},
 args: [],
 source: "testEquality\x0a\x09self assert: 'hello' = 'hello'.\x0a\x09self deny: 'hello' = 'world'.\x0a\x0a\x09self assert: 'hello'  = 'hello' yourself.\x0a\x09self assert: 'hello' yourself = 'hello'.\x0a\x0a\x09\x22test JS falsy value\x22\x0a\x09self deny: '' = 0",
 messageSends: ["assert:", "=", "deny:", "yourself"],
@@ -1624,12 +1870,12 @@ selector: "testIdentity",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send("hello","__eq_eq",["hello"])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("hello","__eq_eq",["world"])]);
-smalltalk.send(self,"_assert_",[smalltalk.send("hello","__eq_eq",[smalltalk.send("hello","_yourself",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_yourself",[]),"__eq_eq",["hello"])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("","__eq_eq",[(0)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st("hello").__eq_eq("world"));
+_st(self)._assert_(_st("hello").__eq_eq(_st("hello")._yourself()));
+_st(self)._assert_(_st(_st("hello")._yourself()).__eq_eq("hello"));
+_st(self)._deny_(_st("").__eq_eq((0)));
+return self}, function($ctx1) {$ctx1.fill(self,"testIdentity",{}, smalltalk.StringTest)})},
 args: [],
 source: "testIdentity\x0a\x09self assert: 'hello' == 'hello'.\x0a\x09self deny: 'hello' == 'world'.\x0a\x0a\x09self assert: 'hello' == 'hello' yourself.\x0a\x09self assert: 'hello' yourself == 'hello'.\x0a\x0a\x09\x22test JS falsy value\x22\x0a\x09self deny: '' == 0",
 messageSends: ["assert:", "==", "deny:", "yourself"],
@@ -1644,9 +1890,9 @@ selector: "testIncludesSubString",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send("amber","_includesSubString_",["ber"])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("amber","_includesSubString_",["zork"])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st("amber")._includesSubString_("zork"));
+return self}, function($ctx1) {$ctx1.fill(self,"testIncludesSubString",{}, smalltalk.StringTest)})},
 args: [],
 source: "testIncludesSubString\x0a\x09self assert: ('amber' includesSubString: 'ber').\x0a\x09self deny: ('amber' includesSubString: 'zork').",
 messageSends: ["assert:", "includesSubString:", "deny:"],
@@ -1661,8 +1907,8 @@ selector: "testJoin",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["hello,world",smalltalk.send(",","_join_",[["hello", "world"]])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testJoin",{}, smalltalk.StringTest)})},
 args: [],
 source: "testJoin\x0a\x09self assert: 'hello,world' equals: (',' join: #('hello' 'world'))",
 messageSends: ["assert:equals:", "join:"],
@@ -1678,11 +1924,11 @@ category: 'tests',
 fn: function (){
 var self=this;
 var newCollection;
-newCollection="o";
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_select_",[(function(each){
-return smalltalk.send(each,"__eq",["o"]);
-})]),newCollection]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assertSameContents_as_(_st(_st(self)._collection())._select_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})),newCollection);
+return self}, function($ctx1) {$ctx1.fill(self,"testSelect",{newCollection:newCollection}, smalltalk.StringTest)})},
 args: [],
 source: "testSelect\x0a\x09| newCollection |\x0a\x09newCollection := 'o'.\x0a\x09self \x0a\x09\x09assertSameContents: (self collection select: [ :each |\x0a\x09\x09\x09each = 'o' ])\x0a\x09\x09as: newCollection",
 messageSends: ["assertSameContents:as:", "select:", "=", "collection"],
@@ -1697,9 +1943,9 @@ selector: "testSize",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send("smalltalk","_size",[]),(9)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send("","_size",[]),(0)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st("")._size(),(0));
+return self}, function($ctx1) {$ctx1.fill(self,"testSize",{}, smalltalk.StringTest)})},
 args: [],
 source: "testSize\x0a\x09self assert: 'smalltalk' size equals: 9.\x0a\x09self assert: '' size equals: 0",
 messageSends: ["assert:equals:", "size"],
@@ -1714,14 +1960,15 @@ selector: "testStreamContents",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1;
-smalltalk.send(self,"_assert_equals_",["hello world",smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(aStream){
-smalltalk.send(aStream,"_nextPutAll_",["hello"]);
-smalltalk.send(aStream,"_space",[]);
-$1=smalltalk.send(aStream,"_nextPutAll_",["world"]);
-return $1;
-})])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_("hello world",_st((smalltalk.String || String))._streamContents_((function(aStream){
+return smalltalk.withContext(function($ctx2) {
+_st($1)._nextPutAll_("hello");
+_st($1)._space();
+$2=_st($1)._nextPutAll_("world");
+return $2;
+}, function($ctx2) {$ctx2.fillBlock({aStream:aStream},$ctx1)})})));
+return self}, function($ctx1) {$ctx1.fill(self,"testStreamContents",{}, smalltalk.StringTest)})},
 args: [],
 source: "testStreamContents\x0a\x09self \x0a\x09\x09assert: 'hello world' \x0a\x09\x09equals: (String streamContents: [ :aStream | \x0a\x09\x09\x09aStream \x0a\x09\x09\x09\x09nextPutAll: 'hello'; space; \x0a\x09\x09\x09\x09nextPutAll: 'world' ])",
 messageSends: ["assert:equals:", "streamContents:", "nextPutAll:", "space"],
@@ -1737,8 +1984,10 @@ selector: "collectionClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return (smalltalk.String || String);
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=(smalltalk.String || String);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"collectionClass",{}, smalltalk.StringTest.klass)})},
 args: [],
 source: "collectionClass\x0a\x09^ String",
 messageSends: [],
@@ -1755,8 +2004,8 @@ selector: "collection",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.symbolFor("hello");
-},
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"collection",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "collection\x0a\x09^ #hello",
 messageSends: [],
@@ -1771,8 +2020,8 @@ selector: "collectionWithDuplicates",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.symbolFor("phhaaarorra");
-},
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"collectionWithDuplicates",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "collectionWithDuplicates\x0a\x09^ #phhaaarorra",
 messageSends: [],
@@ -1787,8 +2036,8 @@ selector: "testAsString",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.symbolFor("hello"),"_asString",[]),"hello"]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testAsString",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testAsString\x0a\x09self assert: #hello asString equals: 'hello'",
 messageSends: ["assert:equals:", "asString"],
@@ -1803,8 +2052,8 @@ selector: "testAsSymbol",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq_eq",[smalltalk.send(smalltalk.symbolFor("hello"),"_asSymbol",[])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testAsSymbol",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testAsSymbol\x0a\x09self assert: #hello == #hello asSymbol",
 messageSends: ["assert:", "==", "asSymbol"],
@@ -1819,12 +2068,12 @@ selector: "testAt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_at_",[(1)]),"__eq",["h"])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_at_",[(5)]),"__eq",["o"])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_at_ifAbsent_",[(6),(function(){
-return nil;
-})]),"__eq",[nil])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st(smalltalk.symbolFor("hello"))._at_((5))).__eq("o"));
+_st(self)._assert_(_st(_st(smalltalk.symbolFor("hello"))._at_ifAbsent_((6),(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq(nil));
+return self}, function($ctx1) {$ctx1.fill(self,"testAt",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testAt\x0a\x09self assert: (#hello at: 1) = 'h'.\x0a\x09self assert: (#hello at: 5) = 'o'.\x0a\x09self assert: (#hello at: 6 ifAbsent: [nil]) = nil",
 messageSends: ["assert:", "=", "at:", "at:ifAbsent:"],
@@ -1839,10 +2088,10 @@ selector: "testAtPut",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send("hello","_at_put_",[(1),"a"]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testAtPut",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testAtPut\x0a\x09\x22Symbol instances are read-only\x22\x0a\x09self should: ['hello' at: 1 put: 'a'] raise: Error",
 messageSends: ["should:raise:", "at:put:"],
@@ -1858,11 +2107,11 @@ category: 'tests',
 fn: function (){
 var self=this;
 var newCollection;
-newCollection=smalltalk.symbolFor("hheelllloo");
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_collect_",[(function(each){
-return smalltalk.send(each,"__comma",[each]);
-})]),newCollection]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assertSameContents_as_(_st(_st(self)._collection())._collect_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})),newCollection);
+return self}, function($ctx1) {$ctx1.fill(self,"testCollect",{newCollection:newCollection}, smalltalk.SymbolTest)})},
 args: [],
 source: "testCollect\x0a\x09| newCollection |\x0a\x09newCollection := #hheelllloo.\x0a\x09self \x0a\x09\x09assertSameContents: (self collection collect: [ :each |\x0a\x09\x09\x09each, each ])\x0a\x09\x09as: newCollection",
 messageSends: ["assertSameContents:as:", "collect:", ",", "collection"],
@@ -1877,15 +2126,15 @@ selector: "testComparing",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("ab"),"__gt",[smalltalk.symbolFor("aa")])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("ab"),"__gt",[smalltalk.symbolFor("ba")])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("ab"),"__lt",[smalltalk.symbolFor("ba")])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("bb"),"__lt",[smalltalk.symbolFor("ba")])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("ab"),"__gt_eq",[smalltalk.symbolFor("aa")])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("ab"),"__gt_eq",[smalltalk.symbolFor("ba")])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("ab"),"__lt_eq",[smalltalk.symbolFor("ba")])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("bb"),"__lt_eq",[smalltalk.symbolFor("ba")])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(smalltalk.symbolFor("ab")).__gt(smalltalk.symbolFor("ba")));
+_st(self)._assert_(_st(smalltalk.symbolFor("ab")).__lt(smalltalk.symbolFor("ba")));
+_st(self)._deny_(_st(smalltalk.symbolFor("bb")).__lt(smalltalk.symbolFor("ba")));
+_st(self)._assert_(_st(smalltalk.symbolFor("ab")).__gt_eq(smalltalk.symbolFor("aa")));
+_st(self)._deny_(_st(smalltalk.symbolFor("ab")).__gt_eq(smalltalk.symbolFor("ba")));
+_st(self)._assert_(_st(smalltalk.symbolFor("ab")).__lt_eq(smalltalk.symbolFor("ba")));
+_st(self)._deny_(_st(smalltalk.symbolFor("bb")).__lt_eq(smalltalk.symbolFor("ba")));
+return self}, function($ctx1) {$ctx1.fill(self,"testComparing",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testComparing\x0a\x09self assert: #ab > #aa.\x0a\x09self deny: #ab > #ba.\x0a\x0a\x09self assert: #ab < #ba.\x0a\x09self deny: #bb < #ba.\x0a\x0a\x09self assert: #ab >= #aa.\x0a\x09self deny: #ab >= #ba.\x0a\x0a\x09self assert: #ab <= #ba.\x0a\x09self deny: #bb <= #ba",
 messageSends: ["assert:", ">", "deny:", "<", ">=", "<="],
@@ -1900,9 +2149,9 @@ selector: "testCopying",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_copy",[]),"__eq_eq",[smalltalk.symbolFor("hello")])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_deepCopy",[]),"__eq_eq",[smalltalk.symbolFor("hello")])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st(smalltalk.symbolFor("hello"))._deepCopy()).__eq_eq(smalltalk.symbolFor("hello")));
+return self}, function($ctx1) {$ctx1.fill(self,"testCopying",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testCopying\x0a\x09self assert: #hello copy == #hello.\x0a\x09self assert: #hello deepCopy == #hello",
 messageSends: ["assert:", "==", "copy", "deepCopy"],
@@ -1917,15 +2166,15 @@ selector: "testDetect",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
-return smalltalk.send(each,"__eq",["h"]);
-})]),"__eq",["h"])]);
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
-return smalltalk.send(each,"__eq",["z"]);
-})]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}))).__eq("h"));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+return smalltalk.withContext(function($ctx3) {
+}, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testDetect",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testDetect\x0a\x09self assert: (self collection detect: [ :each | each = 'h' ]) = 'h'.\x0a\x09self \x0a\x09\x09should: [ self collection detect: [ :each | each = 'z' ] ]\x0a\x09\x09raise: Error",
 messageSends: ["assert:", "=", "detect:", "collection", "should:raise:"],
@@ -1940,13 +2189,13 @@ selector: "testEquality",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",[smalltalk.symbolFor("hello")])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",[smalltalk.symbolFor("world")])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",[smalltalk.send(smalltalk.symbolFor("hello"),"_yourself",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_yourself",[]),"__eq",[smalltalk.symbolFor("hello")])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",["hello"])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("hello","__eq",[smalltalk.symbolFor("hello")])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(smalltalk.symbolFor("hello")).__eq(smalltalk.symbolFor("world")));
+_st(self)._assert_(_st(smalltalk.symbolFor("hello")).__eq(_st(smalltalk.symbolFor("hello"))._yourself()));
+_st(self)._assert_(_st(_st(smalltalk.symbolFor("hello"))._yourself()).__eq(smalltalk.symbolFor("hello")));
+_st(self)._deny_(_st(smalltalk.symbolFor("hello")).__eq("hello"));
+_st(self)._deny_(_st("hello").__eq(smalltalk.symbolFor("hello")));
+return self}, function($ctx1) {$ctx1.fill(self,"testEquality",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testEquality\x0a\x09self assert: #hello = #hello.\x0a\x09self deny: #hello = #world.\x0a\x0a\x09self assert: #hello  = #hello yourself.\x0a\x09self assert: #hello yourself = #hello.\x0a\x0a\x09self deny: #hello  = 'hello'.\x0a\x09self deny: 'hello' = #hello.",
 messageSends: ["assert:", "=", "deny:", "yourself"],
@@ -1961,11 +2210,11 @@ selector: "testIdentity",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq_eq",[smalltalk.symbolFor("hello")])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq_eq",[smalltalk.symbolFor("world")])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",[smalltalk.send(smalltalk.symbolFor("hello"),"_yourself",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_yourself",[]),"__eq",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_asString",[]),"_asSymbol",[])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(smalltalk.symbolFor("hello")).__eq_eq(smalltalk.symbolFor("world")));
+_st(self)._assert_(_st(smalltalk.symbolFor("hello")).__eq(_st(smalltalk.symbolFor("hello"))._yourself()));
+_st(self)._assert_(_st(_st(smalltalk.symbolFor("hello"))._yourself()).__eq(_st(_st(smalltalk.symbolFor("hello"))._asString())._asSymbol()));
+return self}, function($ctx1) {$ctx1.fill(self,"testIdentity",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testIdentity\x0a\x09self assert: #hello == #hello.\x0a\x09self deny: #hello == #world.\x0a\x0a\x09self assert: #hello  = #hello yourself.\x0a\x09self assert: #hello yourself = #hello asString asSymbol",
 messageSends: ["assert:", "==", "deny:", "=", "yourself", "asSymbol", "asString"],
@@ -1980,9 +2229,9 @@ selector: "testIsEmpty",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_isEmpty",[])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("","_asSymbol",[]),"_isEmpty",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st("")._asSymbol())._isEmpty());
+return self}, function($ctx1) {$ctx1.fill(self,"testIsEmpty",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testIsEmpty\x0a\x09self deny: self collection isEmpty.\x0a\x09self assert: '' asSymbol isEmpty",
 messageSends: ["deny:", "isEmpty", "collection", "assert:", "asSymbol"],
@@ -1997,11 +2246,11 @@ selector: "testIsSymbolIsString",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"_isSymbol",[])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("hello","_isSymbol",[])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("hello"),"_isString",[])]);
-smalltalk.send(self,"_assert_",[smalltalk.send("hello","_isString",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st("hello")._isSymbol());
+_st(self)._deny_(_st(smalltalk.symbolFor("hello"))._isString());
+_st(self)._assert_(_st("hello")._isString());
+return self}, function($ctx1) {$ctx1.fill(self,"testIsSymbolIsString",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testIsSymbolIsString\x0a\x09self assert: #hello isSymbol.\x0a\x09self deny: 'hello' isSymbol.\x0a\x09self deny: #hello isString.\x0a\x09self assert: 'hello' isString",
 messageSends: ["assert:", "isSymbol", "deny:", "isString"],
@@ -2017,11 +2266,11 @@ category: 'tests',
 fn: function (){
 var self=this;
 var newCollection;
-newCollection="o";
-smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_select_",[(function(each){
-return smalltalk.send(each,"__eq",["o"]);
-})]),newCollection]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assertSameContents_as_(_st(_st(self)._collection())._select_((function(each){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})),newCollection);
+return self}, function($ctx1) {$ctx1.fill(self,"testSelect",{newCollection:newCollection}, smalltalk.SymbolTest)})},
 args: [],
 source: "testSelect\x0a\x09| newCollection |\x0a\x09newCollection := 'o'.\x0a\x09self \x0a\x09\x09assertSameContents: (self collection select: [ :each |\x0a\x09\x09\x09each = 'o' ])\x0a\x09\x09as: newCollection",
 messageSends: ["assertSameContents:as:", "select:", "=", "collection"],
@@ -2036,9 +2285,9 @@ selector: "testSize",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.symbolFor("a"),"_size",[]),(1)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.symbolFor("aaaaa"),"_size",[]),(5)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st(smalltalk.symbolFor("aaaaa"))._size(),(5));
+return self}, function($ctx1) {$ctx1.fill(self,"testSize",{}, smalltalk.SymbolTest)})},
 args: [],
 source: "testSize\x0a\x09self assert: #a size equals: 1.\x0a\x09self assert: #aaaaa size equals: 5",
 messageSends: ["assert:equals:", "size"],
@@ -2054,8 +2303,10 @@ selector: "collectionClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return (smalltalk.Symbol || Symbol);
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=(smalltalk.Symbol || Symbol);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"collectionClass",{}, smalltalk.SymbolTest.klass)})},
 args: [],
 source: "collectionClass\x0a\x09^ Symbol",
 messageSends: [],
@@ -2072,11 +2323,10 @@ selector: "jsObject",
 category: 'accessing',
 fn: function (){
 var self=this;
-return jsObject = {a: 1, b: function() {return 2;}, c: function(object) {return object;}, d: ''};
-;
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"jsObject",{}, smalltalk.JSObjectProxyTest)})},
 args: [],
-source: "jsObject\x0a\x09<return jsObject = {a: 1, b: function() {return 2;}, c: function(object) {return object;}, d: ''}>",
+source: "jsObject\x0a\x09<return jsObject = {a: 1, b: function() {return 2;}, c: function(object) {return object;}, d: '', 'e': null}>",
 messageSends: [],
 referencedClasses: []
 }),
@@ -2089,10 +2339,10 @@ selector: "testDNU",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_foo",[]);
-}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+return self}, function($ctx1) {$ctx1.fill(self,"testDNU",{}, smalltalk.JSObjectProxyTest)})},
 args: [],
 source: "testDNU\x0a\x09self should: [self jsObject foo] raise: MessageNotUnderstood",
 messageSends: ["should:raise:", "foo", "jsObject"],
@@ -2107,10 +2357,10 @@ selector: "testMessageSend",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_a",[]),(1)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_b",[]),(2)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_c_",[(3)]),(3)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st(_st(self)._jsObject())._b(),(2));
+_st(self)._assert_equals_(_st(_st(self)._jsObject())._c_((3)),(3));
+return self}, function($ctx1) {$ctx1.fill(self,"testMessageSend",{}, smalltalk.JSObjectProxyTest)})},
 args: [],
 source: "testMessageSend\x0a\x0a\x09self assert: self jsObject a equals: 1.\x0a\x09self assert: self jsObject b equals: 2.\x0a\x09self assert: (self jsObject c: 3) equals: 3",
 messageSends: ["assert:equals:", "a", "jsObject", "b", "c:"],
@@ -2125,8 +2375,8 @@ selector: "testMethodWithArguments",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_c_",[(1)]),(1)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testMethodWithArguments",{}, smalltalk.JSObjectProxyTest)})},
 args: [],
 source: "testMethodWithArguments\x0a\x09self assert: (self jsObject c: 1) equals: 1",
 messageSends: ["assert:equals:", "c:", "jsObject"],
@@ -2141,8 +2391,8 @@ selector: "testPrinting",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_printString",[]),"__eq",["[object Object]"])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testPrinting",{}, smalltalk.JSObjectProxyTest)})},
 args: [],
 source: "testPrinting\x0a\x09self assert: self jsObject printString = '[object Object]'",
 messageSends: ["assert:", "=", "printString", "jsObject"],
@@ -2158,11 +2408,11 @@ category: 'tests',
 fn: function (){
 var self=this;
 var object;
-object=smalltalk.send(self,"_jsObject",[]);
-smalltalk.send(self,"_assert_equals_",["",smalltalk.send(object,"_d",[])]);
-smalltalk.send(object,"_d_",["hello"]);
-smalltalk.send(self,"_assert_equals_",["hello",smalltalk.send(object,"_d",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_("",_st(object)._d());
+_st(object)._d_("hello");
+_st(self)._assert_equals_("hello",_st(object)._d());
+return self}, function($ctx1) {$ctx1.fill(self,"testPropertyThatReturnsEmptyString",{object:object}, smalltalk.JSObjectProxyTest)})},
 args: [],
 source: "testPropertyThatReturnsEmptyString\x0a\x09| object |\x0a\x0a\x09object := self jsObject.\x0a\x09self assert: '' equals: object d.\x0a\x0a\x09object d: 'hello'.\x0a\x09self assert: 'hello' equals: object d",
 messageSends: ["jsObject", "assert:equals:", "d", "d:"],
@@ -2170,6 +2420,27 @@ referencedClasses: []
 }),
 smalltalk.JSObjectProxyTest);
 
+smalltalk.addMethod(
+"_testPropertyThatReturnsUndefined",
+smalltalk.method({
+selector: "testPropertyThatReturnsUndefined",
+category: 'tests',
+fn: function (){
+var self=this;
+var object;
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._shouldnt_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._assert_(_st(_st(object)._e())._isNil());
+return self}, function($ctx1) {$ctx1.fill(self,"testPropertyThatReturnsUndefined",{object:object}, smalltalk.JSObjectProxyTest)})},
+args: [],
+source: "testPropertyThatReturnsUndefined\x0a\x09| object |\x0a\x0a\x09object := self jsObject.\x0a\x09self shouldnt: [ object e ]  raise: MessageNotUnderstood.\x0a    self assert: object e isNil",
+messageSends: ["jsObject", "shouldnt:raise:", "e", "assert:", "isNil"],
+referencedClasses: ["MessageNotUnderstood"]
+}),
+smalltalk.JSObjectProxyTest);
+
 smalltalk.addMethod(
 "_testYourself",
 smalltalk.method({
@@ -2177,14 +2448,14 @@ selector: "testYourself",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1,$2;
 var object;
-$1=smalltalk.send(self,"_jsObject",[]);
-smalltalk.send($1,"_d_",["test"]);
-$2=smalltalk.send($1,"_yourself",[]);
+return smalltalk.withContext(function($ctx1) { 
+$1=_st(self)._jsObject();
+_st($1)._d_("test");
+$2=_st($1)._yourself();
 object=$2;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(object,"_d",[]),"test"]);
-return self},
+_st(self)._assert_equals_(_st(object)._d(),"test");
+return self}, function($ctx1) {$ctx1.fill(self,"testYourself",{object:object}, smalltalk.JSObjectProxyTest)})},
 args: [],
 source: "testYourself\x0a\x09| object |\x0a\x09object := self jsObject\x0a\x09\x09d: 'test';\x0a\x09\x09yourself.\x0a\x0a\x09self assert: object d equals: 'test'",
 messageSends: ["d:", "jsObject", "yourself", "assert:equals:", "d"],
@@ -2194,6 +2465,63 @@ smalltalk.JSObjectProxyTest);
 
 
 
+smalltalk.addClass('JavaScriptExceptionTest', smalltalk.TestCase, [], 'Kernel-Tests');
+smalltalk.addMethod(
+"_testCatchingException",
+smalltalk.method({
+selector: "testCatchingException",
+category: 'testing',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_((smalltalk.Error || Error),(function(error){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"testCatchingException",{}, smalltalk.JavaScriptExceptionTest)})},
+args: [],
+source: "testCatchingException\x0a\x09[ self throwException ]\x0a  \x09\x09on: Error\x0a        do: [ :error | \x0a\x09\x09\x09self assert: error exception = 'test' ]",
+messageSends: ["on:do:", "assert:", "=", "exception", "throwException"],
+referencedClasses: ["Error"]
+}),
+smalltalk.JavaScriptExceptionTest);
+
+smalltalk.addMethod(
+"_testRaisingException",
+smalltalk.method({
+selector: "testRaisingException",
+category: 'testing',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.JavaScriptException || JavaScriptException));
+return self}, function($ctx1) {$ctx1.fill(self,"testRaisingException",{}, smalltalk.JavaScriptExceptionTest)})},
+args: [],
+source: "testRaisingException\x0a\x09self should: [ self throwException ] raise: JavaScriptException",
+messageSends: ["should:raise:", "throwException"],
+referencedClasses: ["JavaScriptException"]
+}),
+smalltalk.JavaScriptExceptionTest);
+
+smalltalk.addMethod(
+"_throwException",
+smalltalk.method({
+selector: "throwException",
+category: 'helpers',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"throwException",{}, smalltalk.JavaScriptExceptionTest)})},
+args: [],
+source: "throwException\x0a\x09<throw 'test'>",
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.JavaScriptExceptionTest);
+
+
+
 smalltalk.addClass('NumberTest', smalltalk.TestCase, [], 'Kernel-Tests');
 smalltalk.addMethod(
 "_testAbs",
@@ -2202,9 +2530,9 @@ selector: "testAbs",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((4),"_abs",[]),"__eq",[(4)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((-4),"_abs",[]),"__eq",[(4)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((-4))._abs()).__eq((4)));
+return self}, function($ctx1) {$ctx1.fill(self,"testAbs",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testAbs\x0a\x09self assert: 4 abs = 4.\x0a\x09self assert: -4 abs = 4",
 messageSends: ["assert:", "=", "abs"],
@@ -2219,14 +2547,14 @@ selector: "testArithmetic",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1.5),"__plus",[(1)]),"__eq",[(2.5)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((2),"__minus",[(1)]),"__eq",[(1)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((-2),"__minus",[(1)]),"__eq",[(-3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((12),"__slash",[(2)]),"__eq",[(6)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"__star",[(4)]),"__eq",[(12)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send((1),"__plus",[(2)]),"__star",[(3)]),"__eq",[(9)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__plus",[smalltalk.send((2),"__star",[(3)])]),"__eq",[(7)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((2)).__minus((1))).__eq((1)));
+_st(self)._assert_(_st(_st((-2)).__minus((1))).__eq((-3)));
+_st(self)._assert_(_st(_st((12)).__slash((2))).__eq((6)));
+_st(self)._assert_(_st(_st((3)).__star((4))).__eq((12)));
+_st(self)._assert_(_st(_st(_st((1)).__plus((2))).__star((3))).__eq((9)));
+_st(self)._assert_(_st(_st((1)).__plus(_st((2)).__star((3)))).__eq((7)));
+return self}, function($ctx1) {$ctx1.fill(self,"testArithmetic",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testArithmetic\x0a\x09\x0a\x09\x22We rely on JS here, so we won't test complex behavior, just check if \x0a\x09message sends are corrects\x22\x0a\x0a\x09self assert: 1.5 + 1 = 2.5.\x0a\x09self assert: 2 - 1 = 1.\x0a\x09self assert: -2 - 1 = -3.\x0a\x09self assert: 12 / 2 = 6.\x0a\x09self assert: 3 * 4 = 12.\x0a\x0a\x09\x22Simple parenthesis and execution order\x22\x0a\x0a\x09self assert: 1 + 2 * 3 = 9.\x0a\x09self assert: 1 + (2 * 3) = 7",
 messageSends: ["assert:", "=", "+", "-", "/", "*"],
@@ -2241,15 +2569,15 @@ selector: "testComparison",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send((3),"__gt",[(2)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((2),"__lt",[(3)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send((3),"__lt",[(2)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send((2),"__gt",[(3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((3),"__gt_eq",[(3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((3.1),"__gt_eq",[(3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((3),"__lt_eq",[(3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((3),"__lt_eq",[(3.1)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st((2)).__lt((3)));
+_st(self)._deny_(_st((3)).__lt((2)));
+_st(self)._deny_(_st((2)).__gt((3)));
+_st(self)._assert_(_st((3)).__gt_eq((3)));
+_st(self)._assert_(_st((3.1)).__gt_eq((3)));
+_st(self)._assert_(_st((3)).__lt_eq((3)));
+_st(self)._assert_(_st((3)).__lt_eq((3.1)));
+return self}, function($ctx1) {$ctx1.fill(self,"testComparison",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testComparison\x0a\x0a\x09self assert: 3 > 2.\x0a\x09self assert: 2 < 3.\x0a\x09\x0a\x09self deny: 3 < 2.\x0a\x09self deny: 2 > 3.\x0a\x0a\x09self assert: 3 >= 3.\x0a\x09self assert: 3.1 >= 3.\x0a\x09self assert: 3 <= 3.\x0a\x09self assert: 3 <= 3.1",
 messageSends: ["assert:", ">", "<", "deny:", ">=", "<="],
@@ -2264,9 +2592,9 @@ selector: "testCopying",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_copy",[]),"__eq_eq",[(1)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_deepCopy",[]),"__eq_eq",[(1)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((1))._deepCopy()).__eq_eq((1)));
+return self}, function($ctx1) {$ctx1.fill(self,"testCopying",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testCopying\x0a\x09self assert: 1 copy == 1.\x0a\x09self assert: 1 deepCopy == 1",
 messageSends: ["assert:", "==", "copy", "deepCopy"],
@@ -2281,17 +2609,17 @@ selector: "testEquality",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send((1),"__eq",[(1)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((0),"__eq",[(0)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send((1),"__eq",[(0)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_yourself",[]),"__eq",[(1)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((1),"__eq",[smalltalk.send((1),"_yourself",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_yourself",[]),"__eq",[smalltalk.send((1),"_yourself",[])])]);
-smalltalk.send(self,"_deny_",[smalltalk.send((0),"__eq",[false])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq",[(0)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send("","__eq",[(0)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send((0),"__eq",[""])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st((0)).__eq((0)));
+_st(self)._deny_(_st((1)).__eq((0)));
+_st(self)._assert_(_st(_st((1))._yourself()).__eq((1)));
+_st(self)._assert_(_st((1)).__eq(_st((1))._yourself()));
+_st(self)._assert_(_st(_st((1))._yourself()).__eq(_st((1))._yourself()));
+_st(self)._deny_(_st((0)).__eq(false));
+_st(self)._deny_(_st(false).__eq((0)));
+_st(self)._deny_(_st("").__eq((0)));
+_st(self)._deny_(_st((0)).__eq(""));
+return self}, function($ctx1) {$ctx1.fill(self,"testEquality",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testEquality\x0a\x09self assert: 1 = 1.\x0a\x09self assert: 0 = 0.\x0a\x09self deny: 1 = 0.\x0a\x0a\x09self assert: 1 yourself = 1.\x0a\x09self assert: 1 = 1 yourself.\x0a\x09self assert: 1 yourself = 1 yourself.\x0a\x09\x0a\x09self deny: 0 = false.\x0a\x09self deny: false = 0.\x0a\x09self deny: '' = 0.\x0a\x09self deny: 0 = ''",
 messageSends: ["assert:", "=", "deny:", "yourself"],
@@ -2299,6 +2627,28 @@ referencedClasses: []
 }),
 smalltalk.NumberTest);
 
+smalltalk.addMethod(
+"_testHexNumbers",
+smalltalk.method({
+selector: "testHexNumbers",
+category: 'tests',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((10))._truncated()).__eq((10)));
+_st(self)._assert_(_st(_st((11))._truncated()).__eq((11)));
+_st(self)._assert_(_st(_st((12))._truncated()).__eq((12)));
+_st(self)._assert_(_st(_st((13))._truncated()).__eq((13)));
+_st(self)._assert_(_st(_st((14))._truncated()).__eq((14)));
+_st(self)._assert_(_st(_st((15))._truncated()).__eq((15)));
+return self}, function($ctx1) {$ctx1.fill(self,"testHexNumbers",{}, smalltalk.NumberTest)})},
+args: [],
+source: "testHexNumbers\x0a\x0a\x09self assert: 16r9 = 9.\x0a\x09self assert: 16rA truncated = 10.\x0a\x09self assert: 16rB truncated = 11.\x0a\x09self assert: 16rC truncated = 12.\x0a\x09self assert: 16rD truncated = 13.\x0a\x09self assert: 16rE truncated = 14.\x0a\x09self assert: 16rF truncated = 15",
+messageSends: ["assert:", "=", "truncated"],
+referencedClasses: []
+}),
+smalltalk.NumberTest);
+
 smalltalk.addMethod(
 "_testIdentity",
 smalltalk.method({
@@ -2306,14 +2656,14 @@ selector: "testIdentity",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send((1),"__eq_eq",[(1)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((0),"__eq_eq",[(0)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send((1),"__eq_eq",[(0)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_yourself",[]),"__eq_eq",[(1)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send((1),"__eq_eq",[smalltalk.send((1),"_yourself",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_yourself",[]),"__eq_eq",[smalltalk.send((1),"_yourself",[])])]);
-smalltalk.send(self,"_deny_",[smalltalk.send((1),"__eq_eq",[(2)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st((0)).__eq_eq((0)));
+_st(self)._deny_(_st((1)).__eq_eq((0)));
+_st(self)._assert_(_st(_st((1))._yourself()).__eq_eq((1)));
+_st(self)._assert_(_st((1)).__eq_eq(_st((1))._yourself()));
+_st(self)._assert_(_st(_st((1))._yourself()).__eq_eq(_st((1))._yourself()));
+_st(self)._deny_(_st((1)).__eq_eq((2)));
+return self}, function($ctx1) {$ctx1.fill(self,"testIdentity",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testIdentity\x0a\x09self assert: 1 == 1.\x0a\x09self assert: 0 == 0.\x0a\x09self deny: 1 == 0.\x0a\x0a\x09self assert: 1 yourself == 1.\x0a\x09self assert: 1 == 1 yourself.\x0a\x09self assert: 1 yourself == 1 yourself.\x0a\x09\x0a\x09self deny: 1 == 2",
 messageSends: ["assert:", "==", "deny:", "yourself"],
@@ -2321,6 +2671,144 @@ referencedClasses: []
 }),
 smalltalk.NumberTest);
 
+smalltalk.addMethod(
+"_testInvalidHexNumbers",
+smalltalk.method({
+selector: "testInvalidHexNumbers",
+category: 'tests',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+return self}, function($ctx1) {$ctx1.fill(self,"testInvalidHexNumbers",{}, smalltalk.NumberTest)})},
+args: [],
+source: "testInvalidHexNumbers\x0a\x0a\x09self should: [16rG] raise: MessageNotUnderstood.\x0a   \x09self should: [16rg] raise: MessageNotUnderstood.\x0a\x09self should: [16rH] raise: MessageNotUnderstood.\x0a   \x09self should: [16rh] raise: MessageNotUnderstood.\x0a\x09self should: [16rI] raise: MessageNotUnderstood.\x0a   \x09self should: [16ri] raise: MessageNotUnderstood.\x0a\x09self should: [16rJ] raise: MessageNotUnderstood.\x0a   \x09self should: [16rj] raise: MessageNotUnderstood.\x0a\x09self should: [16rK] raise: MessageNotUnderstood.\x0a   \x09self should: [16rk] raise: MessageNotUnderstood.\x0a\x09self should: [16rL] raise: MessageNotUnderstood.\x0a   \x09self should: [16rl] raise: MessageNotUnderstood.\x0a\x09self should: [16rM] raise: MessageNotUnderstood.\x0a   \x09self should: [16rm] raise: MessageNotUnderstood.\x0a\x09self should: [16rN] raise: MessageNotUnderstood.\x0a   \x09self should: [16rn] raise: MessageNotUnderstood.\x0a\x09self should: [16rO] raise: MessageNotUnderstood.\x0a   \x09self should: [16ro] raise: MessageNotUnderstood.\x0a\x09self should: [16rP] raise: MessageNotUnderstood.\x0a   \x09self should: [16rp] raise: MessageNotUnderstood.\x0a\x09self should: [16rQ] raise: MessageNotUnderstood.\x0a   \x09self should: [16rq] raise: MessageNotUnderstood.\x0a\x09self should: [16rR] raise: MessageNotUnderstood.\x0a   \x09self should: [16rr] raise: MessageNotUnderstood.\x0a\x09self should: [16rS] raise: MessageNotUnderstood.\x0a   \x09self should: [16rs] raise: MessageNotUnderstood.\x0a\x09self should: [16rT] raise: MessageNotUnderstood.\x0a   \x09self should: [16rt] raise: MessageNotUnderstood.\x0a\x09self should: [16rU] raise: MessageNotUnderstood.\x0a   \x09self should: [16ru] raise: MessageNotUnderstood.\x0a\x09self should: [16rV] raise: MessageNotUnderstood.\x0a   \x09self should: [16rv] raise: MessageNotUnderstood.\x0a\x09self should: [16rW] raise: MessageNotUnderstood.\x0a   \x09self should: [16rw] raise: MessageNotUnderstood.\x0a\x09self should: [16rX] raise: MessageNotUnderstood.\x0a   \x09self should: [16rx] raise: MessageNotUnderstood.\x0a\x09self should: [16rY] raise: MessageNotUnderstood.\x0a   \x09self should: [16ry] raise: MessageNotUnderstood.\x0a\x09self should: [16rZ] raise: MessageNotUnderstood.\x0a   \x09self should: [16rz] raise: MessageNotUnderstood.\x0a    self should: [16rABcdEfZ] raise: MessageNotUnderstood.",
+messageSends: ["should:raise:", "rG", "rg", "rH", "rh", "rI", "ri", "rJ", "rj", "rK", "rk", "rL", "rl", "rM", "rm", "rN", "rn", "rO", "ro", "rP", "rp", "rQ", "rq", "rR", "rr", "rS", "rs", "rT", "rt", "rU", "ru", "rV", "rv", "rW", "rw", "rX", "rx", "rY", "ry", "rZ", "rz", "Z"],
+referencedClasses: ["MessageNotUnderstood"]
+}),
+smalltalk.NumberTest);
+
 smalltalk.addMethod(
 "_testMinMax",
 smalltalk.method({
@@ -2328,9 +2816,9 @@ selector: "testMinMax",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((2),"_max_",[(5)]),(5)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((2),"_min_",[(5)]),(2)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st((2))._min_((5)),(2));
+return self}, function($ctx1) {$ctx1.fill(self,"testMinMax",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testMinMax\x0a\x09\x0a\x09self assert: (2 max: 5) equals: 5.\x0a\x09self assert: (2 min: 5) equals: 2",
 messageSends: ["assert:equals:", "max:", "min:"],
@@ -2345,9 +2833,9 @@ selector: "testNegated",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"_negated",[]),"__eq",[(-3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((-3),"_negated",[]),"__eq",[(3)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((-3))._negated()).__eq((3)));
+return self}, function($ctx1) {$ctx1.fill(self,"testNegated",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testNegated\x0a\x09self assert: 3 negated = -3.\x0a\x09self assert: -3 negated = 3",
 messageSends: ["assert:", "=", "negated"],
@@ -2362,20 +2850,20 @@ selector: "testPrintShowingDecimalPlaces",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["23.00",smalltalk.send((23),"_printShowingDecimalPlaces_",[(2)])]);
-smalltalk.send(self,"_assert_equals_",["23.57",smalltalk.send((23.5698),"_printShowingDecimalPlaces_",[(2)])]);
-smalltalk.send(self,"_assert_equals_",["-234.56700",smalltalk.send(smalltalk.send((234.567),"_negated",[]),"_printShowingDecimalPlaces_",[(5)])]);
-smalltalk.send(self,"_assert_equals_",["23",smalltalk.send((23.4567),"_printShowingDecimalPlaces_",[(0)])]);
-smalltalk.send(self,"_assert_equals_",["24",smalltalk.send((23.5567),"_printShowingDecimalPlaces_",[(0)])]);
-smalltalk.send(self,"_assert_equals_",["-23",smalltalk.send(smalltalk.send((23.4567),"_negated",[]),"_printShowingDecimalPlaces_",[(0)])]);
-smalltalk.send(self,"_assert_equals_",["-24",smalltalk.send(smalltalk.send((23.5567),"_negated",[]),"_printShowingDecimalPlaces_",[(0)])]);
-smalltalk.send(self,"_assert_equals_",["100000000.0",smalltalk.send((100000000),"_printShowingDecimalPlaces_",[(1)])]);
-smalltalk.send(self,"_assert_equals_",["0.98000",smalltalk.send((0.98),"_printShowingDecimalPlaces_",[(5)])]);
-smalltalk.send(self,"_assert_equals_",["-0.98",smalltalk.send(smalltalk.send((0.98),"_negated",[]),"_printShowingDecimalPlaces_",[(2)])]);
-smalltalk.send(self,"_assert_equals_",["2.57",smalltalk.send((2.567),"_printShowingDecimalPlaces_",[(2)])]);
-smalltalk.send(self,"_assert_equals_",["-2.57",smalltalk.send((-2.567),"_printShowingDecimalPlaces_",[(2)])]);
-smalltalk.send(self,"_assert_equals_",["0.00",smalltalk.send((0),"_printShowingDecimalPlaces_",[(2)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_("23.57",_st((23.5698))._printShowingDecimalPlaces_((2)));
+_st(self)._assert_equals_("-234.56700",_st(_st((234.567))._negated())._printShowingDecimalPlaces_((5)));
+_st(self)._assert_equals_("23",_st((23.4567))._printShowingDecimalPlaces_((0)));
+_st(self)._assert_equals_("24",_st((23.5567))._printShowingDecimalPlaces_((0)));
+_st(self)._assert_equals_("-23",_st(_st((23.4567))._negated())._printShowingDecimalPlaces_((0)));
+_st(self)._assert_equals_("-24",_st(_st((23.5567))._negated())._printShowingDecimalPlaces_((0)));
+_st(self)._assert_equals_("100000000.0",_st((100000000))._printShowingDecimalPlaces_((1)));
+_st(self)._assert_equals_("0.98000",_st((0.98))._printShowingDecimalPlaces_((5)));
+_st(self)._assert_equals_("-0.98",_st(_st((0.98))._negated())._printShowingDecimalPlaces_((2)));
+_st(self)._assert_equals_("2.57",_st((2.567))._printShowingDecimalPlaces_((2)));
+_st(self)._assert_equals_("-2.57",_st((-2.567))._printShowingDecimalPlaces_((2)));
+_st(self)._assert_equals_("0.00",_st((0))._printShowingDecimalPlaces_((2)));
+return self}, function($ctx1) {$ctx1.fill(self,"testPrintShowingDecimalPlaces",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testPrintShowingDecimalPlaces\x0a\x09self assert: '23.00' equals: (23 printShowingDecimalPlaces: 2).\x0a\x09self assert: '23.57' equals: (23.5698 printShowingDecimalPlaces: 2).\x0a\x09self assert: '-234.56700' equals:( 234.567 negated printShowingDecimalPlaces: 5).\x0a\x09self assert: '23' equals: (23.4567 printShowingDecimalPlaces: 0).\x0a\x09self assert: '24' equals: (23.5567 printShowingDecimalPlaces: 0).\x0a\x09self assert: '-23' equals: (23.4567 negated printShowingDecimalPlaces: 0).\x0a\x09self assert: '-24' equals: (23.5567 negated printShowingDecimalPlaces: 0).\x0a\x09self assert: '100000000.0' equals: (100000000 printShowingDecimalPlaces: 1).\x0a\x09self assert: '0.98000' equals: (0.98 printShowingDecimalPlaces: 5).\x0a\x09self assert: '-0.98' equals: (0.98 negated printShowingDecimalPlaces: 2).\x0a\x09self assert: '2.57' equals: (2.567 printShowingDecimalPlaces: 2).\x0a\x09self assert: '-2.57' equals: (-2.567 printShowingDecimalPlaces: 2).\x0a\x09self assert: '0.00' equals: (0 printShowingDecimalPlaces: 2).",
 messageSends: ["assert:equals:", "printShowingDecimalPlaces:", "negated"],
@@ -2390,10 +2878,10 @@ selector: "testRounded",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"_rounded",[]),"__eq",[(3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3.212),"_rounded",[]),"__eq",[(3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3.51),"_rounded",[]),"__eq",[(4)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((3.212))._rounded()).__eq((3)));
+_st(self)._assert_(_st(_st((3.51))._rounded()).__eq((4)));
+return self}, function($ctx1) {$ctx1.fill(self,"testRounded",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testRounded\x0a\x09\x0a\x09self assert: 3 rounded = 3.\x0a\x09self assert: 3.212 rounded = 3.\x0a\x09self assert: 3.51 rounded = 4",
 messageSends: ["assert:", "=", "rounded"],
@@ -2408,9 +2896,9 @@ selector: "testSqrt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((4),"_sqrt",[]),"__eq",[(2)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((16),"_sqrt",[]),"__eq",[(4)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((16))._sqrt()).__eq((4)));
+return self}, function($ctx1) {$ctx1.fill(self,"testSqrt",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testSqrt\x0a\x09\x0a\x09self assert: 4 sqrt = 2.\x0a\x09self assert: 16 sqrt = 4",
 messageSends: ["assert:", "=", "sqrt"],
@@ -2425,8 +2913,8 @@ selector: "testSquared",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((4),"_squared",[]),"__eq",[(16)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testSquared",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testSquared\x0a\x09\x0a\x09self assert: 4 squared = 16",
 messageSends: ["assert:", "=", "squared"],
@@ -2442,18 +2930,18 @@ category: 'tests',
 fn: function (){
 var self=this;
 var i;
-i=(0);
-smalltalk.send((0),"_timesRepeat_",[(function(){
-i=smalltalk.send(i,"__plus",[(1)]);
+return smalltalk.withContext(function($ctx1) { 
+_st((0))._timesRepeat_((function(){
+return smalltalk.withContext(function($ctx2) {
 return i;
-})]);
-smalltalk.send(self,"_assert_equals_",[i,(0)]);
-smalltalk.send((5),"_timesRepeat_",[(function(){
-i=smalltalk.send(i,"__plus",[(1)]);
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(self)._assert_equals_(i,(0));
+_st((5))._timesRepeat_((function(){
+return smalltalk.withContext(function($ctx2) {
 return i;
-})]);
-smalltalk.send(self,"_assert_equals_",[i,(5)]);
-return self},
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(self)._assert_equals_(i,(5));
+return self}, function($ctx1) {$ctx1.fill(self,"testTimesRepeat",{i:i}, smalltalk.NumberTest)})},
 args: [],
 source: "testTimesRepeat\x0a\x09| i |\x0a\x0a\x09i := 0.\x0a\x090 timesRepeat: [i := i + 1].\x0a\x09self assert: i equals: 0.\x0a\x0a\x095 timesRepeat: [i := i + 1].\x0a\x09self assert: i equals: 5",
 messageSends: ["timesRepeat:", "+", "assert:equals:"],
@@ -2468,8 +2956,8 @@ selector: "testTo",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((1),"_to_",[(5)]),[(1), (2), (3), (4), (5)]]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testTo",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testTo\x0a\x09self assert: (1 to: 5) equals: #(1 2 3 4 5)",
 messageSends: ["assert:equals:", "to:"],
@@ -2484,11 +2972,11 @@ selector: "testToBy",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((0),"_to_by_",[(6),(2)]),[(0), (2), (4), (6)]]);
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send((1),"_to_by_",[(4),(0)]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._should_raise_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testToBy",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testToBy\x0a\x09self assert: (0 to: 6 by: 2) equals: #(0 2 4 6).\x0a\x0a\x09self should: [1 to: 4 by: 0] raise: Error",
 messageSends: ["assert:equals:", "to:by:", "should:raise:"],
@@ -2503,10 +2991,10 @@ selector: "testTruncated",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"_truncated",[]),"__eq",[(3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3.212),"_truncated",[]),"__eq",[(3)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3.51),"_truncated",[]),"__eq",[(3)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st((3.212))._truncated()).__eq((3)));
+_st(self)._assert_(_st(_st((3.51))._truncated()).__eq((3)));
+return self}, function($ctx1) {$ctx1.fill(self,"testTruncated",{}, smalltalk.NumberTest)})},
 args: [],
 source: "testTruncated\x0a\x09\x0a\x09self assert: 3 truncated = 3.\x0a\x09self assert: 3.212 truncated = 3.\x0a\x09self assert: 3.51 truncated = 3",
 messageSends: ["assert:", "=", "truncated"],
@@ -2517,6 +3005,7 @@ smalltalk.NumberTest);
 
 
 smalltalk.addClass('ObjectMock', smalltalk.Object, ['foo', 'bar'], 'Kernel-Tests');
+smalltalk.ObjectMock.comment="ObjectMock is there only to perform tests on classes."
 smalltalk.addMethod(
 "_foo",
 smalltalk.method({
@@ -2524,8 +3013,10 @@ selector: "foo",
 category: 'not yet classified',
 fn: function (){
 var self=this;
-return self["@foo"];
-},
+return smalltalk.withContext(function($ctx1) { 
+$1=self["@foo"];
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"foo",{}, smalltalk.ObjectMock)})},
 args: [],
 source: "foo\x0a\x09^foo",
 messageSends: [],
@@ -2540,8 +3031,8 @@ selector: "foo:",
 category: 'not yet classified',
 fn: function (anObject){
 var self=this;
-self["@foo"]=anObject;
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"foo:",{anObject:anObject}, smalltalk.ObjectMock)})},
 args: ["anObject"],
 source: "foo: anObject\x0a\x09foo := anObject",
 messageSends: [],
@@ -2552,6 +3043,22 @@ smalltalk.ObjectMock);
 
 
 smalltalk.addClass('ObjectTest', smalltalk.TestCase, [], 'Kernel-Tests');
+smalltalk.addMethod(
+"_notDefined",
+smalltalk.method({
+selector: "notDefined",
+category: 'tests',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"notDefined",{}, smalltalk.ObjectTest)})},
+args: [],
+source: "notDefined\x0a\x09<return undefined;>",
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.ObjectTest);
+
 smalltalk.addMethod(
 "_testBasicAccess",
 smalltalk.method({
@@ -2560,11 +3067,11 @@ category: 'tests',
 fn: function (){
 var self=this;
 var o;
-o=smalltalk.send((smalltalk.Object || Object),"_new",[]);
-smalltalk.send(o,"_basicAt_put_",["a",(1)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_basicAt_",["a"]),(1)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_basicAt_",["b"]),nil]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(o)._basicAt_put_("a",(1));
+_st(self)._assert_equals_(_st(o)._basicAt_("a"),(1));
+_st(self)._assert_equals_(_st(o)._basicAt_("b"),nil);
+return self}, function($ctx1) {$ctx1.fill(self,"testBasicAccess",{o:o}, smalltalk.ObjectTest)})},
 args: [],
 source: "testBasicAccess\x0a\x09| o |\x0a\x09o := Object new.\x0a\x09o basicAt: 'a' put: 1.\x0a\x09self assert: (o basicAt: 'a') equals: 1.\x0a\x09self assert: (o basicAt: 'b') equals: nil",
 messageSends: ["new", "basicAt:put:", "assert:equals:", "basicAt:"],
@@ -2580,16 +3087,16 @@ category: 'tests',
 fn: function (){
 var self=this;
 var o;
-o=smalltalk.send((smalltalk.Object || Object),"_new",[]);
-smalltalk.send(o,"_basicAt_put_",["func",(function(){
-return "hello";
-})]);
-smalltalk.send(o,"_basicAt_put_",["func2",(function(a){
-return smalltalk.send(a,"__plus",[(1)]);
-})]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_basicPerform_",["func"]),"hello"]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_basicPerform_withArguments_",["func2",[(3)]]),(4)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(o)._basicAt_put_("func",(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
+_st(o)._basicAt_put_("func2",(function(a){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({a:a},$ctx1)})}));
+_st(self)._assert_equals_(_st(o)._basicPerform_("func"),"hello");
+_st(self)._assert_equals_(_st(o)._basicPerform_withArguments_("func2",[(3)]),(4));
+return self}, function($ctx1) {$ctx1.fill(self,"testBasicPerform",{o:o}, smalltalk.ObjectTest)})},
 args: [],
 source: "testBasicPerform\x0a\x09| o |\x0a\x09o := Object new.\x0a\x09o basicAt: 'func' put: ['hello'].\x09\x0a\x09o basicAt: 'func2' put: [:a | a + 1].\x0a\x0a\x09self assert: (o basicPerform: 'func')\x09 equals: 'hello'.\x0a\x09self assert: (o basicPerform: 'func2' withArguments: #(3)) equals: 4",
 messageSends: ["new", "basicAt:put:", "+", "assert:equals:", "basicPerform:", "basicPerform:withArguments:"],
@@ -2604,10 +3111,10 @@ selector: "testDNU",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send(smalltalk.send((smalltalk.Object || Object),"_new",[]),"_foo",[]);
-}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.MessageNotUnderstood || MessageNotUnderstood));
+return self}, function($ctx1) {$ctx1.fill(self,"testDNU",{}, smalltalk.ObjectTest)})},
 args: [],
 source: "testDNU\x0a\x09self should: [Object new foo] raise: MessageNotUnderstood",
 messageSends: ["should:raise:", "foo", "new"],
@@ -2623,12 +3130,12 @@ category: 'tests',
 fn: function (){
 var self=this;
 var o;
-o=smalltalk.send((smalltalk.Object || Object),"_new",[]);
-smalltalk.send(self,"_deny_",[smalltalk.send(o,"__eq",[smalltalk.send((smalltalk.Object || Object),"_new",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(o,"__eq",[o])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(o,"_yourself",[]),"__eq",[o])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(o,"__eq",[smalltalk.send(o,"_yourself",[])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(o).__eq(_st((smalltalk.Object || Object))._new()));
+_st(self)._assert_(_st(o).__eq(o));
+_st(self)._assert_(_st(_st(o)._yourself()).__eq(o));
+_st(self)._assert_(_st(o).__eq(_st(o)._yourself()));
+return self}, function($ctx1) {$ctx1.fill(self,"testEquality",{o:o}, smalltalk.ObjectTest)})},
 args: [],
 source: "testEquality\x0a\x09| o |\x0a\x09o := Object new.\x0a\x09self deny: o = Object new.\x0a\x09self assert: o = o.\x0a\x09self assert: o yourself = o.\x0a\x09self assert: o = o yourself",
 messageSends: ["new", "deny:", "=", "assert:", "yourself"],
@@ -2643,10 +3150,10 @@ selector: "testHalt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send(smalltalk.send((smalltalk.Object || Object),"_new",[]),"_halt",[]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testHalt",{}, smalltalk.ObjectTest)})},
 args: [],
 source: "testHalt\x0a\x09self should: [Object new halt] raise: Error",
 messageSends: ["should:raise:", "halt", "new"],
@@ -2662,12 +3169,12 @@ category: 'tests',
 fn: function (){
 var self=this;
 var o;
-o=smalltalk.send((smalltalk.Object || Object),"_new",[]);
-smalltalk.send(self,"_deny_",[smalltalk.send(o,"__eq_eq",[smalltalk.send((smalltalk.Object || Object),"_new",[])])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(o,"__eq_eq",[o])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(o,"_yourself",[]),"__eq_eq",[o])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(o,"__eq_eq",[smalltalk.send(o,"_yourself",[])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(o).__eq_eq(_st((smalltalk.Object || Object))._new()));
+_st(self)._assert_(_st(o).__eq_eq(o));
+_st(self)._assert_(_st(_st(o)._yourself()).__eq_eq(o));
+_st(self)._assert_(_st(o).__eq_eq(_st(o)._yourself()));
+return self}, function($ctx1) {$ctx1.fill(self,"testIdentity",{o:o}, smalltalk.ObjectTest)})},
 args: [],
 source: "testIdentity\x0a\x09| o |\x0a\x09o := Object new.\x0a\x09self deny: o == Object new.\x0a\x09self assert: o == o.\x0a\x09self assert: o yourself == o.\x0a\x09self assert: o == o yourself",
 messageSends: ["new", "deny:", "==", "assert:", "yourself"],
@@ -2682,35 +3189,41 @@ selector: "testIfNil",
 category: 'tests',
 fn: function (){
 var self=this;
-var $2,$1,$4,$3,$6,$5;
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((smalltalk.Object || Object),"_new",[]),"_isNil",[])]);
-$2=smalltalk.send((smalltalk.Object || Object),"_new",[]);
-if(($receiver = $2) == nil || $receiver == undefined){
-$1=true;
-} else {
-$1=$2;
-};
-smalltalk.send(self,"_deny_",[smalltalk.send($1,"__eq",[true])]);
-$4=smalltalk.send((smalltalk.Object || Object),"_new",[]);
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(_st((smalltalk.Object || Object))._new())._isNil());
+$1=self;
+$4=_st((smalltalk.Object || Object))._new();
 if(($receiver = $4) == nil || $receiver == undefined){
+$3=true;
+} else {
 $3=$4;
+};
+$2=_st($3).__eq(true);
+_st($1)._deny_($2);
+$5=self;
+$8=_st((smalltalk.Object || Object))._new();
+if(($receiver = $8) == nil || $receiver == undefined){
+$7=$8;
 } else {
-$3=true;
+$7=true;
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($3,"__eq",[true])]);
-$6=smalltalk.send((smalltalk.Object || Object),"_new",[]);
-if(($receiver = $6) == nil || $receiver == undefined){
-$5=false;
+$6=_st($7).__eq(true);
+_st($5)._assert_($6);
+$9=self;
+$12=_st((smalltalk.Object || Object))._new();
+if(($receiver = $12) == nil || $receiver == undefined){
+$11=false;
 } else {
-$5=true;
+$11=true;
 };
-smalltalk.send(self,"_assert_",[smalltalk.send($5,"__eq",[true])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Object || Object),"_new",[]),"_ifNotNil_ifNil_",[(function(){
-return true;
-}),(function(){
-return false;
-})]),"__eq",[true])]);
-return self},
+$10=_st($11).__eq(true);
+_st($9)._assert_($10);
+_st(self)._assert_(_st(_st(_st((smalltalk.Object || Object))._new())._ifNotNil_ifNil_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq(true));
+return self}, function($ctx1) {$ctx1.fill(self,"testIfNil",{}, smalltalk.ObjectTest)})},
 args: [],
 source: "testIfNil\x0a\x09self deny: Object new isNil.\x0a\x09self deny: (Object new ifNil: [true]) = true.\x0a\x09self assert: (Object new ifNotNil: [true]) = true.\x0a\x0a\x09self assert: (Object new ifNil: [false] ifNotNil: [true]) = true.\x0a\x09self assert: (Object new ifNotNil: [true] ifNil: [false]) = true",
 messageSends: ["deny:", "isNil", "new", "=", "ifNil:", "assert:", "ifNotNil:", "ifNil:ifNotNil:", "ifNotNil:ifNil:"],
@@ -2726,12 +3239,12 @@ category: 'tests',
 fn: function (){
 var self=this;
 var o;
-o=smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_new",[]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_instVarAt_",[smalltalk.symbolFor("foo")]),nil]);
-smalltalk.send(o,"_instVarAt_put_",[smalltalk.symbolFor("foo"),(1)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_instVarAt_",[smalltalk.symbolFor("foo")]),(1)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_instVarAt_",["foo"]),(1)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st(o)._instVarAt_(smalltalk.symbolFor("foo")),nil);
+_st(o)._instVarAt_put_(smalltalk.symbolFor("foo"),(1));
+_st(self)._assert_equals_(_st(o)._instVarAt_(smalltalk.symbolFor("foo")),(1));
+_st(self)._assert_equals_(_st(o)._instVarAt_("foo"),(1));
+return self}, function($ctx1) {$ctx1.fill(self,"testInstVars",{o:o}, smalltalk.ObjectTest)})},
 args: [],
 source: "testInstVars\x0a\x09| o |\x0a\x09o := ObjectMock new.\x0a\x09self assert: (o instVarAt: #foo) equals: nil.\x0a\x0a\x09o instVarAt: #foo put: 1.\x0a\x09self assert: (o instVarAt: #foo) equals: 1.\x0a\x09self assert: (o instVarAt: 'foo') equals: 1",
 messageSends: ["new", "assert:equals:", "instVarAt:", "instVarAt:put:"],
@@ -2746,14 +3259,11 @@ selector: "testNilUndefined",
 category: 'tests',
 fn: function (){
 var self=this;
-var notDefined;
-notDefined = undefined;
-;
-smalltalk.send(self,"_assert_",[smalltalk.send(nil,"__eq",[notDefined])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testNilUndefined",{}, smalltalk.ObjectTest)})},
 args: [],
-source: "testNilUndefined\x0a\x09\x22nil in Smalltalk is the undefined object in JS\x22\x0a\x0a\x09| notDefined |\x0a    \x0a    <notDefined = undefined>.\x0a\x0a\x09self assert: nil = notDefined",
-messageSends: ["assert:", "="],
+source: "testNilUndefined\x0a\x09\x22nil in Smalltalk is the undefined object in JS\x22\x0a\x0a\x09self assert: nil = self notDefined",
+messageSends: ["assert:", "=", "notDefined"],
 referencedClasses: []
 }),
 smalltalk.ObjectTest);
@@ -2763,13 +3273,12 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "testYourself",
 category: 'tests',
-fn: function () {
-    var self = this;
-    var o;
-    o = smalltalk.send(smalltalk.ObjectMock || ObjectMock, "_new", []);
-    smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(o, "_yourself", []), "__eq_eq", [o])]);
-    return self;
-},
+fn: function (){
+var self=this;
+var o;
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st(o)._yourself()).__eq_eq(o));
+return self}, function($ctx1) {$ctx1.fill(self,"testYourself",{o:o}, smalltalk.ObjectTest)})},
 args: [],
 source: "testYourself\x0a\x09| o |\x0a\x09o := ObjectMock new.\x0a\x09self assert: o yourself == o",
 messageSends: ["new", "assert:", "==", "yourself"],
@@ -2782,16 +3291,14 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "testidentityHash",
 category: 'tests',
-fn: function () {
-    var self = this;
-    var o1;
-    var o2;
-    o1 = smalltalk.send(smalltalk.Object || Object, "_new", []);
-    o2 = smalltalk.send(smalltalk.Object || Object, "_new", []);
-    smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(o1, "_identityHash", []), "__eq_eq", [smalltalk.send(o1, "_identityHash", [])])]);
-    smalltalk.send(self, "_deny_", [smalltalk.send(smalltalk.send(o1, "_identityHash", []), "__eq_eq", [smalltalk.send(o2, "_identityHash", [])])]);
-    return self;
-},
+fn: function (){
+var self=this;
+var o1,o2;
+return smalltalk.withContext(function($ctx1) { 
+o2=_st((smalltalk.Object || Object))._new();
+_st(self)._assert_(_st(_st(o1)._identityHash()).__eq_eq(_st(o1)._identityHash()));
+_st(self)._deny_(_st(_st(o1)._identityHash()).__eq_eq(_st(o2)._identityHash()));
+return self}, function($ctx1) {$ctx1.fill(self,"testidentityHash",{o1:o1,o2:o2}, smalltalk.ObjectTest)})},
 args: [],
 source: "testidentityHash\x0a\x09| o1 o2 |\x0a\x09\x0a\x09o1 := Object new.\x0a\x09o2 := Object new.\x0a\x0a\x09self assert: o1 identityHash == o1 identityHash.\x0a\x09self deny: o1 identityHash == o2 identityHash",
 messageSends: ["new", "assert:", "==", "identityHash", "deny:"],
@@ -2809,18 +3316,18 @@ selector: "setUp",
 category: 'running',
 fn: function (){
 var self=this;
-var $1,$2;
-self["@backUpCommitPathJs"]=smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathJs",[]);
-self["@backUpCommitPathSt"]=smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathSt",[]);
-smalltalk.send((smalltalk.Package || Package),"_resetCommitPaths",[]);
-self["@zorkPackage"]=smalltalk.send(smalltalk.send((smalltalk.Package || Package),"_new",[]),"_name_",["Zork"]);
-$1=smalltalk.send((smalltalk.Package || Package),"_new",[]);
-smalltalk.send($1,"_name_",["Grul"]);
-smalltalk.send($1,"_commitPathJs_",["server/grul/js"]);
-smalltalk.send($1,"_commitPathSt_",["grul/st"]);
-$2=smalltalk.send($1,"_yourself",[]);
+return smalltalk.withContext(function($ctx1) { 
+self["@backUpCommitPathJs"]=_st((smalltalk.Package || Package))._defaultCommitPathJs();
+self["@backUpCommitPathSt"]=_st((smalltalk.Package || Package))._defaultCommitPathSt();
+_st((smalltalk.Package || Package))._resetCommitPaths();
+self["@zorkPackage"]=_st(_st((smalltalk.Package || Package))._new())._name_("Zork");
+$1=_st((smalltalk.Package || Package))._new();
+_st($1)._name_("Grul");
+_st($1)._commitPathJs_("server/grul/js");
+_st($1)._commitPathSt_("grul/st");
+$2=_st($1)._yourself();
 self["@grulPackage"]=$2;
-return self},
+return self}, function($ctx1) {$ctx1.fill(self,"setUp",{}, smalltalk.PackageTest)})},
 args: [],
 source: "setUp\x0a\x09backUpCommitPathJs := Package defaultCommitPathJs.\x0a\x09backUpCommitPathSt := Package defaultCommitPathSt.\x0a\x0a\x09Package resetCommitPaths.\x0a\x0a\x09zorkPackage := Package new name: 'Zork'.\x0a\x09grulPackage := Package new \x0a\x09\x09\x09\x09\x09name: 'Grul';\x0a\x09\x09\x09\x09\x09commitPathJs: 'server/grul/js';\x0a\x09\x09\x09\x09\x09commitPathSt: 'grul/st';\x0a\x09\x09\x09\x09\x09yourself",
 messageSends: ["defaultCommitPathJs", "defaultCommitPathSt", "resetCommitPaths", "name:", "new", "commitPathJs:", "commitPathSt:", "yourself"],
@@ -2835,10 +3342,11 @@ selector: "tearDown",
 category: 'running',
 fn: function (){
 var self=this;
-var $1;
-smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathJs_",[self["@backUpCommitPathJs"]]);
-$1=smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathSt_",[self["@backUpCommitPathSt"]]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+$1=(smalltalk.Package || Package);
+_st($1)._defaultCommitPathJs_(self["@backUpCommitPathJs"]);
+$2=_st($1)._defaultCommitPathSt_(self["@backUpCommitPathSt"]);
+return self}, function($ctx1) {$ctx1.fill(self,"tearDown",{}, smalltalk.PackageTest)})},
 args: [],
 source: "tearDown\x0a\x09 Package \x0a\x09\x09defaultCommitPathJs: backUpCommitPathJs;\x0a\x09\x09defaultCommitPathSt: backUpCommitPathSt",
 messageSends: ["defaultCommitPathJs:", "defaultCommitPathSt:"],
@@ -2853,8 +3361,8 @@ selector: "testGrulCommitPathJsShouldBeServerGrulJs",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["server/grul/js",smalltalk.send(self["@grulPackage"],"_commitPathJs",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testGrulCommitPathJsShouldBeServerGrulJs",{}, smalltalk.PackageTest)})},
 args: [],
 source: "testGrulCommitPathJsShouldBeServerGrulJs\x0a\x09self assert: 'server/grul/js' equals: grulPackage commitPathJs",
 messageSends: ["assert:equals:", "commitPathJs"],
@@ -2869,8 +3377,8 @@ selector: "testGrulCommitPathStShouldBeGrulSt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["grul/st",smalltalk.send(self["@grulPackage"],"_commitPathSt",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testGrulCommitPathStShouldBeGrulSt",{}, smalltalk.PackageTest)})},
 args: [],
 source: "testGrulCommitPathStShouldBeGrulSt\x0a\x09self assert: 'grul/st' equals: grulPackage commitPathSt",
 messageSends: ["assert:equals:", "commitPathSt"],
@@ -2885,8 +3393,8 @@ selector: "testZorkCommitPathJsShouldBeJs",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["js",smalltalk.send(self["@zorkPackage"],"_commitPathJs",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testZorkCommitPathJsShouldBeJs",{}, smalltalk.PackageTest)})},
 args: [],
 source: "testZorkCommitPathJsShouldBeJs\x0a\x09self assert: 'js' equals: zorkPackage commitPathJs",
 messageSends: ["assert:equals:", "commitPathJs"],
@@ -2901,8 +3409,8 @@ selector: "testZorkCommitPathStShouldBeSt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["st",smalltalk.send(self["@zorkPackage"],"_commitPathSt",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testZorkCommitPathStShouldBeSt",{}, smalltalk.PackageTest)})},
 args: [],
 source: "testZorkCommitPathStShouldBeSt\x0a\x09self assert: 'st' equals: zorkPackage commitPathSt",
 messageSends: ["assert:equals:", "commitPathSt"],
@@ -2920,11 +3428,12 @@ selector: "setUp",
 category: 'running',
 fn: function (){
 var self=this;
-var $1;
-smalltalk.send(self,"_setUp",[],smalltalk.PackageTest);
-smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathJs_",["javascripts/"]);
-$1=smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathSt_",["smalltalk/"]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+smalltalk.PackageTest.fn.prototype._setUp.apply(_st(self), []);
+$1=(smalltalk.Package || Package);
+_st($1)._defaultCommitPathJs_("javascripts/");
+$2=_st($1)._defaultCommitPathSt_("smalltalk/");
+return self}, function($ctx1) {$ctx1.fill(self,"setUp",{}, smalltalk.PackageWithDefaultCommitPathChangedTest)})},
 args: [],
 source: "setUp\x0a\x09super setUp.\x0a\x0a\x09Package\x0a\x09\x09defaultCommitPathJs: 'javascripts/';\x0a\x09\x09defaultCommitPathSt: 'smalltalk/'.",
 messageSends: ["setUp", "defaultCommitPathJs:", "defaultCommitPathSt:"],
@@ -2939,8 +3448,8 @@ selector: "testGrulCommitPathJsShouldBeServerGrulJs",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["server/grul/js",smalltalk.send(self["@grulPackage"],"_commitPathJs",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testGrulCommitPathJsShouldBeServerGrulJs",{}, smalltalk.PackageWithDefaultCommitPathChangedTest)})},
 args: [],
 source: "testGrulCommitPathJsShouldBeServerGrulJs\x0a\x09self assert: 'server/grul/js' equals: grulPackage commitPathJs",
 messageSends: ["assert:equals:", "commitPathJs"],
@@ -2955,8 +3464,8 @@ selector: "testGrulCommitPathStShouldBeGrulSt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["grul/st",smalltalk.send(self["@grulPackage"],"_commitPathSt",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testGrulCommitPathStShouldBeGrulSt",{}, smalltalk.PackageWithDefaultCommitPathChangedTest)})},
 args: [],
 source: "testGrulCommitPathStShouldBeGrulSt\x0a\x09self assert: 'grul/st' equals: grulPackage commitPathSt",
 messageSends: ["assert:equals:", "commitPathSt"],
@@ -2971,8 +3480,8 @@ selector: "testZorkCommitPathJsShouldBeJavascript",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["javascripts/",smalltalk.send(self["@zorkPackage"],"_commitPathJs",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testZorkCommitPathJsShouldBeJavascript",{}, smalltalk.PackageWithDefaultCommitPathChangedTest)})},
 args: [],
 source: "testZorkCommitPathJsShouldBeJavascript\x0a\x09self assert: 'javascripts/' equals: zorkPackage commitPathJs",
 messageSends: ["assert:equals:", "commitPathJs"],
@@ -2987,8 +3496,8 @@ selector: "testZorkCommitPathStShouldBeSmalltalk",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",["smalltalk/",smalltalk.send(self["@zorkPackage"],"_commitPathSt",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testZorkCommitPathStShouldBeSmalltalk",{}, smalltalk.PackageWithDefaultCommitPathChangedTest)})},
 args: [],
 source: "testZorkCommitPathStShouldBeSmalltalk\x0a\x09self assert: 'smalltalk/' equals: zorkPackage commitPathSt",
 messageSends: ["assert:equals:", "commitPathSt"],
@@ -3004,8 +3513,8 @@ selector: "shouldInheritSelectors",
 category: 'accessing',
 fn: function (){
 var self=this;
-return false;
-},
+return smalltalk.withContext(function($ctx1) { 
+}, function($ctx1) {$ctx1.fill(self,"shouldInheritSelectors",{}, smalltalk.PackageWithDefaultCommitPathChangedTest.klass)})},
 args: [],
 source: "shouldInheritSelectors\x0a\x09^ false",
 messageSends: [],
@@ -3022,11 +3531,11 @@ selector: "testAccessing",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Point || Point),"_x_y_",[(3),(4)]),"_x",[]),(3)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Point || Point),"_x_y_",[(3),(4)]),"_y",[]),(4)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Point || Point),"_new",[]),"_x_",[(3)]),"_x",[]),(3)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Point || Point),"_new",[]),"_y_",[(4)]),"_y",[]),(4)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st(_st((smalltalk.Point || Point))._x_y_((3),(4)))._y(),(4));
+_st(self)._assert_equals_(_st(_st(_st((smalltalk.Point || Point))._new())._x_((3)))._x(),(3));
+_st(self)._assert_equals_(_st(_st(_st((smalltalk.Point || Point))._new())._y_((4)))._y(),(4));
+return self}, function($ctx1) {$ctx1.fill(self,"testAccessing",{}, smalltalk.PointTest)})},
 args: [],
 source: "testAccessing\x0a\x09self assert: (Point x: 3 y: 4) x equals: 3.\x0a\x09self assert: (Point x: 3 y: 4) y equals: 4.\x0a\x09self assert: (Point new x: 3) x equals: 3.\x0a\x09self assert: (Point new y: 4) y equals: 4",
 messageSends: ["assert:equals:", "x", "x:y:", "y", "x:", "new", "y:"],
@@ -3041,11 +3550,11 @@ selector: "testArithmetic",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((3),"__at",[(4)]),"__star",[smalltalk.send((3),"__at",[(4)])]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(9),(16)])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((3),"__at",[(4)]),"__plus",[smalltalk.send((3),"__at",[(4)])]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(6),(8)])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((3),"__at",[(4)]),"__minus",[smalltalk.send((3),"__at",[(4)])]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(0),(0)])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((6),"__at",[(8)]),"__slash",[smalltalk.send((3),"__at",[(4)])]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(2),(2)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st(_st((3)).__at((4))).__plus(_st((3)).__at((4))),_st((smalltalk.Point || Point))._x_y_((6),(8)));
+_st(self)._assert_equals_(_st(_st((3)).__at((4))).__minus(_st((3)).__at((4))),_st((smalltalk.Point || Point))._x_y_((0),(0)));
+_st(self)._assert_equals_(_st(_st((6)).__at((8))).__slash(_st((3)).__at((4))),_st((smalltalk.Point || Point))._x_y_((2),(2)));
+return self}, function($ctx1) {$ctx1.fill(self,"testArithmetic",{}, smalltalk.PointTest)})},
 args: [],
 source: "testArithmetic\x0a\x09self assert: 3@4 * (3@4 ) equals: (Point x: 9 y: 16).\x0a\x09self assert: 3@4 + (3@4 ) equals: (Point x: 6 y: 8).\x0a\x09self assert: 3@4 - (3@4 ) equals: (Point x: 0 y: 0).\x0a\x09self assert: 6@8 / (3@4 ) equals: (Point x: 2 y: 2)",
 messageSends: ["assert:equals:", "*", "@", "x:y:", "+", "-", "/"],
@@ -3060,8 +3569,8 @@ selector: "testAt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((3),"__at",[(4)]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(3),(4)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testAt",{}, smalltalk.PointTest)})},
 args: [],
 source: "testAt\x0a\x09self assert: 3@4 equals: (Point x: 3 y: 4)",
 messageSends: ["assert:equals:", "@", "x:y:"],
@@ -3076,9 +3585,9 @@ selector: "testEgality",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"__at",[(4)]),"__eq",[smalltalk.send((3),"__at",[(4)])])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((3),"__at",[(5)]),"__eq",[smalltalk.send((3),"__at",[(6)])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(_st((3)).__at((5))).__eq(_st((3)).__at((6))));
+return self}, function($ctx1) {$ctx1.fill(self,"testEgality",{}, smalltalk.PointTest)})},
 args: [],
 source: "testEgality\x0a\x09self assert: 3@4 = (3@4).\x0a\x09self deny: 3@5 = (3@6)",
 messageSends: ["assert:", "=", "@", "deny:"],
@@ -3093,11 +3602,11 @@ selector: "testTranslateBy",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((3),"__at",[(4)]),smalltalk.send(smalltalk.send((3),"__at",[(3)]),"_translateBy_",[smalltalk.send((0),"__at",[(1)])])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((3),"__at",[(2)]),smalltalk.send(smalltalk.send((3),"__at",[(3)]),"_translateBy_",[smalltalk.send((0),"__at",[smalltalk.send((1),"_negated",[])])])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((5),"__at",[(6)]),smalltalk.send(smalltalk.send((3),"__at",[(3)]),"_translateBy_",[smalltalk.send((2),"__at",[(3)])])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send((0),"__at",[(3)]),smalltalk.send(smalltalk.send((3),"__at",[(3)]),"_translateBy_",[smalltalk.send(smalltalk.send((3),"_negated",[]),"__at",[(0)])])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st((3)).__at((2)),_st(_st((3)).__at((3)))._translateBy_(_st((0)).__at(_st((1))._negated())));
+_st(self)._assert_equals_(_st((5)).__at((6)),_st(_st((3)).__at((3)))._translateBy_(_st((2)).__at((3))));
+_st(self)._assert_equals_(_st((0)).__at((3)),_st(_st((3)).__at((3)))._translateBy_(_st(_st((3))._negated()).__at((0))));
+return self}, function($ctx1) {$ctx1.fill(self,"testTranslateBy",{}, smalltalk.PointTest)})},
 args: [],
 source: "testTranslateBy\x0a\x09self assert: 3@4 equals: (3@3 translateBy: 0@1).\x0a\x09self assert: 3@2 equals: (3@3 translateBy: 0@1 negated).\x0a\x09self assert: 5@6 equals: (3@3 translateBy: 2@3).\x0a\x09self assert: 0@3 equals: (3@3 translateBy: 3 negated @0).",
 messageSends: ["assert:equals:", "@", "translateBy:", "negated"],
@@ -3115,17 +3624,16 @@ selector: "textNext",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send((10000),"_timesRepeat_",[(function(){
-var current;
-var next;
-next=smalltalk.send(smalltalk.send((smalltalk.Random || Random),"_new",[]),"_next",[]);
+return smalltalk.withContext(function($ctx1) { 
+var current,next;
+return smalltalk.withContext(function($ctx2) {
 next;
-smalltalk.send(self,"_assert_",[smalltalk.send(next,"__gt_eq",[(0)])]);
-smalltalk.send(self,"_assert_",[smalltalk.send(next,"__lt",[(1)])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(current,"__eq",[next])]);
-return smalltalk.send(next,"__eq",[current]);
-})]);
-return self},
+_st(self)._assert_(_st(next).__gt_eq((0)));
+_st(self)._assert_(_st(next).__lt((1)));
+_st(self)._deny_(_st(current).__eq(next));
+return _st(next).__eq(current);
+}, function($ctx2) {$ctx2.fillBlock({current:current,next:next},$ctx1)})}));
+return self}, function($ctx1) {$ctx1.fill(self,"textNext",{}, smalltalk.RandomTest)})},
 args: [],
 source: "textNext\x0a\x0a\x0910000 timesRepeat: [\x0a\x09\x09\x09| current next | \x0a\x09\x09\x09next := Random new next.\x0a\x09\x09\x09self assert: (next >= 0).\x0a\x09\x09\x09self assert: (next < 1).\x0a\x09\x09\x09self deny: current = next.\x0a\x09\x09\x09next = current]",
 messageSends: ["timesRepeat:", "next", "new", "assert:", ">=", "<", "deny:", "="],
@@ -3144,15 +3652,15 @@ category: 'tests',
 fn: function (){
 var self=this;
 var set;
-set=smalltalk.send((smalltalk.Set || Set),"_new",[]);
-smalltalk.send(self,"_assert_",[smalltalk.send(set,"_isEmpty",[])]);
-smalltalk.send(set,"_add_",[(3)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(set,"_includes_",[(3)])]);
-smalltalk.send(set,"_add_",[(5)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(set,"_includes_",[(5)])]);
-smalltalk.send(set,"_remove_",[(3)]);
-smalltalk.send(self,"_deny_",[smalltalk.send(set,"_includes_",[(3)])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(set)._isEmpty());
+_st(set)._add_((3));
+_st(self)._assert_(_st(set)._includes_((3)));
+_st(set)._add_((5));
+_st(self)._assert_(_st(set)._includes_((5)));
+_st(set)._remove_((3));
+_st(self)._deny_(_st(set)._includes_((3)));
+return self}, function($ctx1) {$ctx1.fill(self,"testAddRemove",{set:set}, smalltalk.SetTest)})},
 args: [],
 source: "testAddRemove\x0a\x09| set |\x0a\x09set := Set new.\x0a\x09\x0a\x09self assert: set isEmpty.\x0a\x0a\x09set add: 3.\x0a\x09self assert: (set includes: 3).\x0a\x0a\x09set add: 5.\x0a\x09self assert: (set includes: 5).\x0a\x0a\x09set remove: 3.\x0a\x09self deny: (set includes: 3)",
 messageSends: ["new", "assert:", "isEmpty", "add:", "includes:", "remove:", "deny:"],
@@ -3167,10 +3675,10 @@ selector: "testAt",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_should_raise_",[(function(){
-return smalltalk.send(smalltalk.send((smalltalk.Set || Set),"_new",[]),"_at_put_",[(1),(2)]);
-}),(smalltalk.Error || Error)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(smalltalk.Error || Error));
+return self}, function($ctx1) {$ctx1.fill(self,"testAt",{}, smalltalk.SetTest)})},
 args: [],
 source: "testAt\x0a\x09self should: [Set new at: 1 put: 2] raise: Error",
 messageSends: ["should:raise:", "at:put:", "new"],
@@ -3185,23 +3693,25 @@ selector: "testPrintString",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1,$2;
 var set;
-set=smalltalk.send((smalltalk.Set || Set),"_new",[]);
-smalltalk.send(self,"_assert_equals_",["a Set ()",smalltalk.send(set,"_printString",[])]);
-smalltalk.send(set,"_add_",[(1)]);
-$1=smalltalk.send(set,"_add_",[(3)]);
-smalltalk.send(self,"_assert_equals_",["a Set (1 3)",smalltalk.send(set,"_printString",[])]);
-smalltalk.send(set,"_add_",["foo"]);
-smalltalk.send(self,"_assert_equals_",["a Set (1 3 'foo')",smalltalk.send(set,"_printString",[])]);
-smalltalk.send(set,"_remove_",[(1)]);
-$2=smalltalk.send(set,"_remove_",[(3)]);
-smalltalk.send(self,"_assert_equals_",["a Set ('foo')",smalltalk.send(set,"_printString",[])]);
-smalltalk.send(set,"_add_",[(3)]);
-smalltalk.send(self,"_assert_equals_",["a Set ('foo' 3)",smalltalk.send(set,"_printString",[])]);
-smalltalk.send(set,"_add_",[(3)]);
-smalltalk.send(self,"_assert_equals_",["a Set ('foo' 3)",smalltalk.send(set,"_printString",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+set=_st((smalltalk.Set || Set))._new();
+_st(self)._assert_equals_("a Set ()",_st(set)._printString());
+$1=set;
+_st($1)._add_((1));
+$2=_st($1)._add_((3));
+_st(self)._assert_equals_("a Set (1 3)",_st(set)._printString());
+_st(set)._add_("foo");
+_st(self)._assert_equals_("a Set (1 3 'foo')",_st(set)._printString());
+$3=set;
+_st($3)._remove_((1));
+$4=_st($3)._remove_((3));
+_st(self)._assert_equals_("a Set ('foo')",_st(set)._printString());
+_st(set)._add_((3));
+_st(self)._assert_equals_("a Set ('foo' 3)",_st(set)._printString());
+_st(set)._add_((3));
+_st(self)._assert_equals_("a Set ('foo' 3)",_st(set)._printString());
+return self}, function($ctx1) {$ctx1.fill(self,"testPrintString",{set:set}, smalltalk.SetTest)})},
 args: [],
 source: "testPrintString\x0a\x09| set |\x0a\x09set := Set new.\x0a\x09self assert: 'a Set ()' equals: ( set printString ).\x0a\x09set add: 1; add: 3.\x0a\x09self assert: 'a Set (1 3)' equals: ( set printString ).\x0a\x09set add: 'foo'.\x0a\x09self assert: 'a Set (1 3 ''foo'')' equals: ( set printString ).\x0a\x09set remove: 1; remove: 3.\x0a\x09self assert: 'a Set (''foo'')' equals: ( set printString ).\x0a\x09set add: 3.\x0a\x09self assert: 'a Set (''foo'' 3)' equals: ( set printString ).\x0a\x09set add: 3.\x0a\x09self assert: 'a Set (''foo'' 3)' equals: ( set printString ).",
 messageSends: ["new", "assert:equals:", "printString", "add:", "remove:"],
@@ -3216,10 +3726,10 @@ selector: "testSize",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Set || Set),"_new",[]),"_size",[]),(0)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Set || Set),"_withAll_",[[(1), (2), (3), (4)]]),"_size",[]),(4)]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Set || Set),"_withAll_",[[(1), (1), (1), (1)]]),"_size",[]),(1)]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_equals_(_st(_st((smalltalk.Set || Set))._withAll_([(1), (2), (3), (4)]))._size(),(4));
+_st(self)._assert_equals_(_st(_st((smalltalk.Set || Set))._withAll_([(1), (1), (1), (1)]))._size(),(1));
+return self}, function($ctx1) {$ctx1.fill(self,"testSize",{}, smalltalk.SetTest)})},
 args: [],
 source: "testSize\x0a\x09self assert: Set new size equals: 0.\x0a\x09self assert: (Set withAll: #(1 2 3 4)) size equals: 4.\x0a\x09self assert: (Set withAll: #(1 1 1 1)) size equals: 1",
 messageSends: ["assert:equals:", "size", "new", "withAll:"],
@@ -3235,15 +3745,15 @@ category: 'tests',
 fn: function (){
 var self=this;
 var set;
-set=smalltalk.send((smalltalk.Set || Set),"_new",[]);
-smalltalk.send(set,"_add_",[(21)]);
-smalltalk.send(set,"_add_",["hello"]);
-smalltalk.send(set,"_add_",[(21)]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(set,"_size",[]),"__eq",[(2)])]);
-smalltalk.send(set,"_add_",["hello"]);
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(set,"_size",[]),"__eq",[(2)])]);
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(set,"_asArray",[]),[(21), "hello"]]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(set)._add_((21));
+_st(set)._add_("hello");
+_st(set)._add_((21));
+_st(self)._assert_(_st(_st(set)._size()).__eq((2)));
+_st(set)._add_("hello");
+_st(self)._assert_(_st(_st(set)._size()).__eq((2)));
+_st(self)._assert_equals_(_st(set)._asArray(),[(21), "hello"]);
+return self}, function($ctx1) {$ctx1.fill(self,"testUnicity",{set:set}, smalltalk.SetTest)})},
 args: [],
 source: "testUnicity\x0a\x09| set |\x0a\x09set := Set new.\x0a\x09set add: 21.\x0a\x09set add: 'hello'.\x0a\x0a\x09set add: 21.\x0a\x09self assert: set size = 2.\x0a\x09\x0a\x09set add: 'hello'.\x0a\x09self assert: set size = 2.\x0a\x0a\x09self assert: set asArray equals: #(21 'hello')",
 messageSends: ["new", "add:", "assert:", "=", "size", "assert:equals:", "asArray"],
@@ -3261,8 +3771,8 @@ selector: "testCopying",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_equals_",[smalltalk.send(nil,"_copy",[]),nil]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testCopying",{}, smalltalk.UndefinedTest)})},
 args: [],
 source: "testCopying\x0a\x09self assert: nil copy equals: nil",
 messageSends: ["assert:equals:", "copy"],
@@ -3277,8 +3787,8 @@ selector: "testDeepCopy",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(nil,"_deepCopy",[]),"__eq",[nil])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"testDeepCopy",{}, smalltalk.UndefinedTest)})},
 args: [],
 source: "testDeepCopy\x0a\x09self assert: nil deepCopy = nil",
 messageSends: ["assert:", "=", "deepCopy"],
@@ -3293,31 +3803,35 @@ selector: "testIfNil",
 category: 'tests',
 fn: function (){
 var self=this;
-var $1,$2,$3;
+return smalltalk.withContext(function($ctx1) { 
+$1=self;
 if(($receiver = nil) == nil || $receiver == undefined){
-$1=true;
+$2=true;
 } else {
-$1=nil;
+$2=nil;
 };
-smalltalk.send(self,"_assert_equals_",[$1,true]);
+_st($1)._assert_equals_($2,true);
+$3=self;
 if(($receiver = nil) == nil || $receiver == undefined){
-$2=nil;
+$5=nil;
 } else {
-$2=true;
+$5=true;
 };
-smalltalk.send(self,"_deny_",[smalltalk.send($2,"__eq",[true])]);
+$4=_st($5).__eq(true);
+_st($3)._deny_($4);
+$6=self;
 if(($receiver = nil) == nil || $receiver == undefined){
-$3=true;
+$7=true;
 } else {
-$3=false;
+$7=false;
 };
-smalltalk.send(self,"_assert_equals_",[$3,true]);
-smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(nil,"_ifNotNil_ifNil_",[(function(){
-return true;
-}),(function(){
-return false;
-})]),"__eq",[true])]);
-return self},
+_st($6)._assert_equals_($7,true);
+_st(self)._deny_(_st(_st(nil)._ifNotNil_ifNil_((function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(function(){
+return smalltalk.withContext(function($ctx2) {
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__eq(true));
+return self}, function($ctx1) {$ctx1.fill(self,"testIfNil",{}, smalltalk.UndefinedTest)})},
 args: [],
 source: "testIfNil\x0a\x09self assert: (nil ifNil: [true]) equals: true.\x0a\x09self deny: (nil ifNotNil: [true]) = true.\x0a\x09self assert: (nil ifNil: [true] ifNotNil: [false]) equals: true.\x0a\x09self deny: (nil ifNotNil: [true] ifNil: [false]) = true",
 messageSends: ["assert:equals:", "ifNil:", "deny:", "=", "ifNotNil:", "ifNil:ifNotNil:", "ifNotNil:ifNil:"],
@@ -3332,9 +3846,9 @@ selector: "testIsNil",
 category: 'tests',
 fn: function (){
 var self=this;
-smalltalk.send(self,"_assert_",[smalltalk.send(nil,"_isNil",[])]);
-smalltalk.send(self,"_deny_",[smalltalk.send(nil,"_notNil",[])]);
-return self},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._deny_(_st(nil)._notNil());
+return self}, function($ctx1) {$ctx1.fill(self,"testIsNil",{}, smalltalk.UndefinedTest)})},
 args: [],
 source: "testIsNil\x0a\x09self assert: nil isNil.\x0a\x09self deny: nil notNil.",
 messageSends: ["assert:", "isNil", "deny:", "notNil"],