--- a/CodeView.st	Mon Aug 27 12:11:14 2018 +0200
+++ b/CodeView.st	Wed Aug 29 09:10:34 2018 +0200
@@ -259,7 +259,7 @@
          codeViews do support #accept
          ... add it after #inspectIt
         "
-        (m indexOf:'Accept') == 0 ifTrue:[
+        (m indexOf:#accept) == 0 ifTrue:[
             m 
               addItemList:#(
                     ('-')
@@ -307,6 +307,7 @@
     ^ m ? sub.
 
     "Modified: / 20-10-2017 / 11:18:23 / cg"
+    "Modified: / 28-08-2018 / 21:56:21 / Claus Gittinger"
 !
 
 explain