--- a/Tools__NewSystemBrowser.st	Fri May 13 14:36:06 2016 +0200
+++ b/Tools__NewSystemBrowser.st	Fri May 13 14:39:30 2016 +0200
@@ -25029,7 +25029,7 @@
     
     aWidget = (navigationState canvas builder componentAt:'InfoLabel') ifTrue:[
         action := aWidget actionAt:aPoint.
-        Transcript showCR:action.
+        "/ Transcript show:'action under info label:'; showCR:action.
         info := action perform:#info ifNotUnderstood:nil.
         info notNil ifTrue:[
             ^ info value
@@ -54644,12 +54644,14 @@
     "common helper, used by autosearchAction.
      Does a language-aware search."
      
-    |codeTree nodes searchStartPos prevNode|
+    |source codeTree nodes searchStartPos prevNode|
 
     RBParser isNil ifTrue:[^ self].
+    
+    source := self codeView contents.
 
     codeTree := RBParser
-                    parseSearchMethod:self codeView contents
+                    parseSearchMethod:source
                     onError: [:str :pos | "Transcript showCR:str. Transcript showCR:pos." nil].
 
     codeTree notNil ifTrue:[