--- a/Explainer.st	Sat Nov 05 19:11:29 2016 +0100
+++ b/Explainer.st	Wed Nov 16 13:43:53 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -271,7 +273,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:[
@@ -1020,7 +1022,7 @@
         "/ a class
         val name = sym ifFalse:[
             "/ an alias (such as OperatingSystem, Screen etc.)
-            template := template,'. Refers to %{realName}'.
+            template := template,'. Refers to %(realName)'.
             bindings at:'realName' put:val name.
         ].
 
@@ -1036,7 +1038,7 @@
             template := template , (val isSharedPool ifTrue:[' pool'] ifFalse:[' class']).
             template := template , ' in %(package) {%(category)}.'.
             bindings at:'package' put:val package.
-            bindings at:'varName' put:(self asClassLink:val name).
+            bindings at:'varName' put:(self asClassLink:varName "val name").
             ^ template bindWithArguments:bindings
         ].
 
@@ -1085,8 +1087,7 @@
     ^ explanation.
 
     "Created: / 14-10-2010 / 11:33:04 / cg"
-    "Modified: / 14-02-2012 / 15:31:28 / cg"
-    "Modified (comment): / 28-02-2012 / 10:45:48 / cg"
+    "Modified: / 16-11-2016 / 13:08:07 / cg"
 !
 
 explainHereIn:aClass short:shortText
@@ -2643,7 +2644,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)).
     ].