--- a/DebugView.st	Fri Sep 17 13:42:09 1999 +0200
+++ b/DebugView.st	Fri Sep 17 14:36:13 1999 +0200
@@ -2452,9 +2452,13 @@
     inspecting ifTrue:[^ self].
 
     codeView modified ifTrue:[
-        (self confirm:('Code modified - step anyway ?'))
-        ifFalse:[
-            ^ self
+        (currentMethod isNil
+        or:[(currentMethod source asString = codeView contents asString string) not]
+        ) ifTrue:[
+            (self confirm:('Code modified - step anyway ?'))
+            ifFalse:[
+                ^ self
+            ]
         ]
     ].
 
@@ -3810,6 +3814,9 @@
                     implementorClass := homeContext methodClass.
                     implementorClass isNil ifTrue:[
                         Object errorSignal handle:[:ex |
+                            ex signal == MessageTracer breakpointSignal ifTrue:[
+                                ex proceed.
+                            ].
                             code := 'error while asking method for its source'.
                             code := code , Character cr , ex signal printString.
                             code := code , Character cr , 'in: ' , ex suspendedContext printString.
@@ -3856,6 +3863,9 @@
                         ex signal == Object haltSignal ifTrue:[
                             ex proceed.
                         ].
+                        ex signal == MessageTracer breakpointSignal ifTrue:[
+                            ex proceed.
+                        ].
                         code := 'error while asking method for its source'.
                         code := code , Character cr , ex signal printString.
                         code := code , Character cr , 'in: ' , ex suspendedContext printString.
@@ -4014,6 +4024,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.245 1999-09-03 10:42:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.246 1999-09-17 12:36:13 cg Exp $'
 ! !
 DebugView initialize!