--- a/Explainer.st	Thu Aug 06 08:26:55 2020 +0200
+++ b/Explainer.st	Thu Aug 06 08:27:08 2020 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -140,9 +138,22 @@
         literalValue size == 0 ifTrue:[
             ^ 'empty ' , expl
         ].
-        (literalValue isString 
-        and:[ node token isLiteralCString ]) ifTrue:[
-            expl := expl,' (C-syntax)'.
+        literalValue isString ifTrue:[
+            node token isLiteralCString ifTrue:[
+                expl := expl,' (C-syntax)'.
+            ] ifFalse:[
+                node token isLiteralEString ifTrue:[
+                    expl := expl,' (expandeded String)'.
+                ] ifFalse:[
+                    node token isLiteralIString ifTrue:[
+                        expl := expl,' (internationalized String)'.
+                    ] ifFalse:[
+                        node token isLiteralRString ifTrue:[
+                            expl := expl,' (regex)'.
+                        ].
+                    ].
+                ].
+            ].
         ].
         elementIndex notNil ifTrue:[
             ^ expl , (' (size=%1; element=%2)' bindWith:literalValue size with:elementIndex)
@@ -292,7 +303,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 := '%1 %2' bindWith:clsName with:(implMethod methodDefinitionTemplateForSelector:selector).
         info := self asLink:info to:(action1 := self actionToBrowseClass:implClass selector:selector info:nil).
         
@@ -2866,7 +2877,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)).
     ].