Fixed MethodContext >> asString

js/Kernel-Methods.deploy.js

@@ -723,7 +723,7 @@ var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $2,$1;
 $2=_st(self)._isBlockContext();
 if(smalltalk.assert($2)){
-$1=_st(_st("a block (in ").__comma(_st(_st(self)._methodContext())._asString())).__comma(")");
+$1=_st(_st("a block (in ").__comma(_st(_st(_st(_st(self)._methodContext())._receiver())._class())._printString())).__comma(")");
 } else {
 $1=_st(_st(_st(_st(_st(self)._receiver())._class())._printString()).__comma(" >> ")).__comma(_st(self)._selector());
 };

js/Kernel-Methods.js

@@ -989,15 +989,15 @@ var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $2,$1;
 $2=_st(self)._isBlockContext();
 if(smalltalk.assert($2)){
-$1=_st(_st("a block (in ").__comma(_st(_st(self)._methodContext())._asString())).__comma(")");
+$1=_st(_st("a block (in ").__comma(_st(_st(_st(_st(self)._methodContext())._receiver())._class())._printString())).__comma(")");
 } else {
 $1=_st(_st(_st(_st(_st(self)._receiver())._class())._printString()).__comma(" >> ")).__comma(_st(self)._selector());
 };
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"asString",{}, smalltalk.MethodContext)})},
 args: [],
-source: "asString\x0a\x09^self isBlockContext \x0a    \x09ifTrue: [ 'a block (in ', self methodContext asString, ')' ]\x0a      \x09ifFalse: [ self receiver class printString, ' >> ', self selector ]",
-messageSends: ["ifTrue:ifFalse:", ",", "asString", "methodContext", "selector", "printString", "class", "receiver", "isBlockContext"],
+source: "asString\x0a\x09^self isBlockContext \x0a    \x09ifTrue: [ 'a block (in ', self methodContext receiver class printString, ')' ]\x0a      \x09ifFalse: [ self receiver class printString, ' >> ', self selector ]",
+messageSends: ["ifTrue:ifFalse:", ",", "printString", "class", "receiver", "methodContext", "selector", "isBlockContext"],
 referencedClasses: []
 }),
 smalltalk.MethodContext);

st/Kernel-Methods.st

@@ -357,7 +357,7 @@ Current limitation: MethodContext instances are not created on Block evaluation.
 
 asString
 	^self isBlockContext 
-    	ifTrue: [ 'a block (in ', self methodContext asString, ')' ]
+    	ifTrue: [ 'a block (in ', self methodContext receiver class printString, ')' ]
       	ifFalse: [ self receiver class printString, ' >> ', self selector ]
 !