--- a/MessageTracer.st	Sun Mar 31 01:27:16 2013 +0100
+++ b/MessageTracer.st	Sun Mar 31 14:28:28 2013 +0200
@@ -2981,16 +2981,18 @@
 
     con := aContext.
 
-    [con notNil
-     and:[con selector ~~ #'changed:with:'] 
-    ] whileTrue:[
-        con := con sender.
-    ].
-    "/ con is #'changed:with:'
+"/    [
+"/        con notNil and:[con selector ~~ #'changed:with:'] 
+"/    ] whileTrue:[
+"/        con := con sender.
+"/    ].
+    con := con findNextContextWithSelector:#'changed:with:' or:nil or:nil.
+
     con isNil ifTrue:[
         ^ self printEntryFull:aContext level:lvl on:aStream.
     ].
 
+    "/ con is #'changed:with:'
     (con sender notNil
     and:[ con sender selector == #'changed:']) ifTrue:[
         con := con sender.
@@ -3260,7 +3262,7 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.118 2013-03-22 11:46:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.119 2013-03-31 12:28:28 cg Exp $'
 ! !