--- a/DebugView.st	Wed Aug 28 17:22:48 2013 +0200
+++ b/DebugView.st	Wed Aug 28 20:24:33 2013 +0200
@@ -1379,6 +1379,8 @@
     "/ search...
     idx := self interestingContextIndexIn:someContexts.
     ^ someContexts at:idx.
+
+    "Modified: / 28-08-2013 / 20:12:47 / cg"
 !
 
 interestingContextIndexIn:aContextArray
@@ -1386,10 +1388,11 @@
      This is the context initially shown (selected) in the walkback.
      We move up the calling chain, skipping all intermediate Signal
      and Exception contexts, to present the context in which the error actually occured.
-     Just for your convenience :-)"
+     Just for your (my) convenience :-)"
 
     |con found offset sel prev rcvr nMax idx methodHome method|
 
+"/ Transcript showCR:'x'.
 "/ Transcript showCR:aContextArray.
 
     nMax := aContextArray size.
@@ -1433,6 +1436,7 @@
         con := (aContextArray at:1).
         sel := con methodHome selector.
 
+"/ Transcript show:'2 '; showCR:con.
         "/ typically a DivisionByZero - show caller of division
         (sel == #//
         or:[sel == #/
@@ -1545,7 +1549,7 @@
     "/ ask the method, if it thinks it should be skipped in the walkback.
     "/ as more methods get flagged, remove code from above.
     con := aContextArray at:offset ifAbsent:nil.
-
+"/ Transcript show:'2 '; showCR:con.
     [
         con notNil
         and:[ (methodHome := con methodHome) notNil
@@ -1578,9 +1582,15 @@
     "
      now, we are one above the raising context
     "
+"/ Transcript show:'3 '; showCR:con.
+
+    (con selector == #retry:coercing:) ifTrue:[
+        "/ show the operation which failed to coerce, not the coerce
+        ^ offset + 1
+    ].
 
     "
-     if the sender-method of the raise is one of objects error methods ...
+     if the sender-method of the raise is one of object's error methods ...
     "
     ( #( halt halt:
          error error:
@@ -1611,7 +1621,7 @@
     ^ offset
 
     "Created: / 17-11-2001 / 20:37:49 / cg"
-    "Modified: / 01-08-2013 / 23:18:36 / cg"
+    "Modified: / 28-08-2013 / 20:23:35 / cg"
 ! !
 
 !DebugView methodsFor:'basic'!
@@ -8834,15 +8844,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.620 2013-08-28 14:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.621 2013-08-28 18:24:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.620 2013-08-28 14:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.621 2013-08-28 18:24:33 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.620 2013-08-28 14:49:40 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.621 2013-08-28 18:24:33 cg Exp $'
 ! !