--- a/DoWhatIMeanSupport.st	Mon Aug 15 08:22:45 2016 +0100
+++ b/DoWhatIMeanSupport.st	Tue Aug 23 10:02:37 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -2348,7 +2346,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , '  ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -3388,12 +3386,14 @@
                         |pool names|
 
                         pool := Smalltalk at:poolName.
-                        names := pool classVarNames.
-                        names := names select:[:nm | nm isUppercaseFirst ].
-                        responders := names select:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
-                        nonResponders := names reject:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
-                        addWithFactorBlock value:responders value:(2.5 * globalFactor).
-                        addWithFactorBlock value:nonResponders value:(0.5 * 2.5 * globalFactor).
+                        pool notNil ifTrue:[
+                            names := pool classVarNames.
+                            names := names select:[:nm | nm isUppercaseFirst ].
+                            responders := names select:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
+                            nonResponders := names reject:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
+                            addWithFactorBlock value:responders value:(2.5 * globalFactor).
+                            addWithFactorBlock value:nonResponders value:(0.5 * 2.5 * globalFactor).
+                        ].
                     ].
                 ]
             ]
@@ -4980,7 +4980,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , '  ' , info.
 "/    ].
 "/    self information:info.