--- a/DoWhatIMeanSupport.st	Tue Jan 03 15:04:04 2017 +0100
+++ b/DoWhatIMeanSupport.st	Wed Jan 11 11:12:41 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -2449,7 +2447,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -4579,12 +4577,14 @@
                         
                         SourceCodeManagerError handle:[:ex |
                         ] do:[    
-                            tree := implementorOfSelectorUpToCursor parseTree.
-                            argName := tree argumentNames at:argIdx.
-                            (argName includesString:'block' caseSensitive:false) ifTrue:[
-                                actionBlock value:{'[ "',argName,'" ]'}
-                                            value:{ self editActionToInsert:('[ "',argName,'" ]') }
-                                            value:'block argument'
+                            tree := implementorOfSelectorUpToCursor parseTree. 
+                            tree notNil ifTrue:[
+                                argName := tree argumentNames at:argIdx.
+                                (argName includesString:'block' caseSensitive:false) ifTrue:[
+                                    actionBlock value:{'[ "',argName,'" ]'}
+                                                value:{ self editActionToInsert:('[ "',argName,'" ]') }
+                                                value:'block argument'
+                                ]. 
                             ].
                         ].    
                     ] ifFalse:[    
@@ -5019,7 +5019,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.