--- a/DebugView.st	Thu Jul 25 21:12:32 1996 +0200
+++ b/DebugView.st	Fri Jul 26 16:48:32 1996 +0200
@@ -524,7 +524,7 @@
 "/                        retval := nil.
 "/                        ex return
 "/                    ] do:[
-"/			  |s|
+"/                        |s|
 "/
 "/                        s := codeView selection asString.
 "/                        retval := codeView doItAction value:s.
@@ -645,7 +645,7 @@
 
     "Created: 24.11.1995 / 19:52:54 / cg"
     "Modified: 3.5.1996 / 23:58:16 / stefan"
-    "Modified: 1.7.1996 / 11:57:07 / cg"
+    "Modified: 26.7.1996 / 16:19:45 / cg"
 !
 
 openOn:aProcess
@@ -1826,6 +1826,8 @@
 
     |c found offset sel prev ex|
 
+    aContext isBlockContext ifTrue:[^ 1].
+
     "somewhere, at the bottom, there must be a raise ..."
 
     c := aContext.
@@ -1857,7 +1859,20 @@
         ]
     ].
 
-    (c := found) isNil ifTrue:[^ 1].
+    (c := found) isNil ifTrue:[
+        "/ this is a kludge, but convenient.
+        "/ show the place where the divisionByZero happend,
+        "/ not where the signal was raised.
+
+        sel := aContext selector.
+        (sel == #//      
+        or:[sel == #/
+        or:[sel == #\\]]) ifTrue:[
+            ^ 2
+        ].
+        
+        ^ 1
+    ].
 
     "
      got it; move up, skipping all intermediate Signal and
@@ -1874,7 +1889,7 @@
     ].
 
     "
-     now, we are one above the raise
+     now, we are one above the raising context
     "
 
     "
@@ -1907,7 +1922,7 @@
     ^ offset
 
     "Created: 10.12.1995 / 13:55:21 / cg"
-    "Modified: 1.7.1996 / 11:01:44 / cg"
+    "Modified: 26.7.1996 / 16:34:58 / cg"
 !
 
 interruptProcessWith:aBlock
@@ -2626,5 +2641,5 @@
 !DebugView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.98 1996-07-11 15:44:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.99 1996-07-26 14:48:32 cg Exp $'
 ! !