--- a/BrowserView.st	Sat Mar 23 14:51:05 1996 +0100
+++ b/BrowserView.st	Sat Mar 23 15:57:41 1996 +0100
@@ -5853,6 +5853,10 @@
 
     |what m src v|
 
+    codeView modified ifFalse:[
+        ^ true
+    ].
+
     (currentMethod notNil and:[actualClass notNil]) ifTrue:[
         self withWaitCursorDo:[
             m := actualClass compiledMethodAt:currentSelector.
@@ -5875,7 +5879,7 @@
     ^ self checkSelectionChangeAllowedWithCompare:false
 
     "Created: 24.11.1995 / 11:03:33 / cg"
-    "Modified: 6.3.1996 / 14:18:01 / cg"
+    "Modified: 23.3.1996 / 15:46:27 / cg"
 !
 
 checkSelectionChangeAllowedWithCompare:compareOffered
@@ -6949,6 +6953,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.115 1996-03-21 20:23:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.116 1996-03-23 14:57:41 cg Exp $'
 ! !
 BrowserView initialize!