--- a/Explainer.st	Mon May 28 15:02:47 2018 +0200
+++ b/Explainer.st	Wed Jun 06 14:02:23 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -273,7 +271,7 @@
         implMethod := implClass compiledMethodAt:selector.
         clsName := implClass name.
         clsName := self asLink:clsName to:(self actionToBrowseClass:implClass selector:selector).
-        info := '%1 » %2' bindWith:clsName "allBold" with:selectorString.
+        info := '%1 » %2' bindWith:clsName "allBold" with:selectorString.
         info := self asLink:info to:(action1 := self actionToBrowseClass:implClass selector:selector info:nil).
         
         redefiningClasses size > 0 ifTrue:[
@@ -1511,7 +1509,7 @@
             ].
         ].
         cm notNil ifTrue:[
-            cm := (' %1 says:\' withCRs bindWith:(self asClassLink:classProvidingComment name)),cm.
+            cm := ('%1 says:\' withCRs bindWith:(self asClassLink:classProvidingComment name)),cm.
 
             "/ msg := msg,(msg last isSeparator ifTrue:[''] ifFalse:[' ']),cm
             msg := msg,(Character cr),cm
@@ -1556,6 +1554,7 @@
     "Created: / 23-03-1999 / 13:29:33 / cg"
     "Modified: / 01-05-2016 / 15:42:24 / cg"
     "Modified: / 22-05-2017 / 11:35:31 / mawalch"
+    "Modified: / 06-06-2018 / 11:34:14 / Claus Gittinger"
 !
 
 explainSelfIn:aClass short:shortText
@@ -2700,7 +2699,7 @@
                         to:(self actionToOpenMethodFinderFor:sel)) 
             with:(self 
                     asLink:inheritedClass name "allBold" 
-                    info:('Browse %1 » %2' bindWith:inheritedClass name with:sel)
+                    info:('Browse %1 » %2' bindWith:inheritedClass name with:sel)
                     to:(self actionToBrowseClass:inheritedClass selector:sel)).
     ].