--- a/Tools__NewSystemBrowser.st	Sun Feb 12 11:06:00 2017 +0100
+++ b/Tools__NewSystemBrowser.st	Sun Feb 12 11:09:08 2017 +0100
@@ -45808,11 +45808,15 @@
 !
 
 findResponseTo:selector in:whereWanted
+    "find the response to selector (i.e. when sent to self)
+     and - dependeing on whereWanted - open a new browser or add a buffer on those methods"
+     
     |where searchClass class implClasses mthd currentMethod|
 
     where := whereWanted.
 
     currentMethod := self theSingleSelectedMethod.
+    
     searchClass := self theSingleSelectedClass.
     searchClass isNil ifTrue:[
         searchClass := self classHierarchyTopClass value.
@@ -45874,6 +45878,8 @@
         self spawnMethodBrowserFor:(Array with:mthd) in:where
              label:(resources string:'Response to %1' with:selector)
     ]
+
+    "Modified (comment): / 12-02-2017 / 10:54:09 / cg"
 !
 
 searchMenuAddToBookmarks