*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 29 May 2008 15:29:35 +0200
changeset 8154 d755b646fc9d
parent 8153 32a314ffb979
child 8155 018dcb4973bf
*** empty log message ***
DebugView.st
--- a/DebugView.st	Wed May 28 12:48:39 2008 +0200
+++ b/DebugView.st	Thu May 29 15:29:35 2008 +0200
@@ -944,7 +944,7 @@
         "
          ok, got the raise - if its a BreakPoint, look for the sender
         "
-        (prev receiver == BreakPointInterrupt) ifTrue:[
+        (prev notNil and:[prev receiver == BreakPointInterrupt]) ifTrue:[
             offset := offset + 1
         ].
     ].
@@ -6084,7 +6084,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.432 2008-05-27 20:59:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.433 2008-05-29 13:29:35 cg Exp $'
 ! !
 
 DebugView initialize!