--- a/Tools__CodeView2.st	Wed Aug 22 12:59:21 2018 +0200
+++ b/Tools__CodeView2.st	Wed Aug 22 15:37:08 2018 +0200
@@ -4335,11 +4335,11 @@
     "JV@2011-10-27: Idea is not to do anything if nobody is
      interested. Not sure if it is a good idea, thought."
     reallyModifiedChannel dependents isEmptyOrNil ifTrue:[
-        Transcript showCR:'no one cares'.
+        "/ Transcript showCR:'no one cares'.
         ^ self
     ].
 
-    readOnly ifTrue:[
+    self isReadOnly ifTrue:[
         modified := false
     ] ifFalse:[
         modified := self isTextDifferentFromOriginalSource.
@@ -4366,7 +4366,7 @@
     "Created: / 07-10-2011 / 19:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 28-10-2011 / 09:23:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 19-11-2017 / 14:18:55 / cg"
-    "Modified: / 22-08-2018 / 12:59:03 / Claus Gittinger"
+    "Modified: / 22-08-2018 / 15:34:11 / Claus Gittinger"
 ! !
 
 !CodeView2::TextView methodsFor:'queries'!