--- a/Context.st Fri Aug 03 12:57:24 2018 +0200
+++ b/Context.st Fri Aug 03 12:57:34 2018 +0200
@@ -2130,8 +2130,9 @@
"
(self sender notNil
and:[ self sender isBridgeProxy not
+ and:[ self sender receiver isBridgeProxy not
and:[ self sender receiver isMethod
- and:[ self sender selector startsWith:'valueWithReceiver:' ]]]) ifTrue:[
+ and:[ self sender selector startsWith:'valueWithReceiver:' ]]]]) ifTrue:[
where := '(**DIRECTED**)'.
] ifFalse:[
where := '(**NONE**)'.
@@ -2143,7 +2144,7 @@
"Created: / 23-10-2013 / 11:13:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 05-02-2014 / 17:50:33 / cg"
- "Modified: / 21-07-2018 / 17:42:04 / Claus Gittinger"
+ "Modified: / 03-08-2018 / 08:44:19 / Claus Gittinger"
!
printWithSeparator:sep on:aStream