--- a/Explainer.st	Mon May 30 06:50:35 2016 +0200
+++ b/Explainer.st	Mon Jun 06 12:35:08 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -267,7 +269,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:[
@@ -2125,7 +2127,10 @@
 
     | code |
 
-    code := aMethod source.
+    SourceCodeManagerError handle:[:ex |
+    ] do:[    
+        code := aMethod source.
+    ].
     (code notNil) ifTrue:[
         self addTypesAssignedToInstvar:instVarName inClass:aClass source:code to:setOfTypes
     ]
@@ -2643,7 +2648,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)).
     ].