--- a/DebugView.st	Fri Jul 31 01:41:41 1998 +0200
+++ b/DebugView.st	Fri Jul 31 02:40:21 1998 +0200
@@ -3339,13 +3339,16 @@
 
 checkSelectionChangeAllowed
     codeView modified ifTrue:[
-        ^ self confirm:('Code modified - change selection anyway ?')
+        (self confirm:('Code modified - change selection anyway ?')) ifFalse:[
+            ^ false
+        ].
+        codeView modified:false
     ].
 
     ^ true
 
     "Created: / 29.7.1998 / 21:57:02 / cg"
-    "Modified: / 29.7.1998 / 21:57:34 / cg"
+    "Modified: / 31.7.1998 / 02:18:49 / cg"
 !
 
 codeAccept:someCode
@@ -3860,6 +3863,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.212 1998-07-30 09:21:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.213 1998-07-31 00:40:21 cg Exp $'
 ! !
 DebugView initialize!