--- a/Tools__NewSystemBrowser.st	Thu May 24 21:01:44 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Fri May 25 12:20:14 2018 +0200
@@ -25647,22 +25647,26 @@
     "/ the helptext of the text/selector filter field
     "/ shall include the current filter setting (explaining T/S/-T/-S)
     aKey == #nameFilterField ifTrue:[
-        filterType := self methodListApp nameFilterTypeHolder value.
-        #(
-            ('S' #nameFilterFieldMatchingSelectors)
-            ('Ss' #nameFilterFieldMatchingSelectorsCaseless)
-            ('T' #nameFilterFieldMatchingText)
-            ('Tt' #nameFilterFieldMatchingTextCaseless)
-            ('-S' #nameFilterFieldMatchingSelectorsNot)
-            ('-Ss' #nameFilterFieldMatchingSelectorsNotCaseless)
-            ('-T' #nameFilterFieldMatchingTextNot)
-            ('-Tt' #nameFilterFieldMatchingTextNotCaseless)
-        ) detect:[:pair | pair first = filterType] 
-          thenCompute:[:pair | ^ super helpTextForKey:(pair second)]
-          ifNone:[].
+        self methodListApp notNil ifTrue:[
+            filterType := self methodListApp nameFilterTypeHolder value.
+            #(
+                ('S' #nameFilterFieldMatchingSelectors)
+                ('Ss' #nameFilterFieldMatchingSelectorsCaseless)
+                ('T' #nameFilterFieldMatchingText)
+                ('Tt' #nameFilterFieldMatchingTextCaseless)
+                ('-S' #nameFilterFieldMatchingSelectorsNot)
+                ('-Ss' #nameFilterFieldMatchingSelectorsNotCaseless)
+                ('-T' #nameFilterFieldMatchingTextNot)
+                ('-Tt' #nameFilterFieldMatchingTextNotCaseless)
+            ) detect:[:pair | pair first = filterType] 
+              thenCompute:[:pair | ^ super helpTextForKey:(pair second)]
+              ifNone:[].
+        ]    
     ].
 
     ^ super helpTextForKey:newKey
+
+    "Modified: / 25-05-2018 / 11:27:47 / Claus Gittinger"
 ! !
 
 !NewSystemBrowser methodsFor:'history'!