--- a/SettingsDialog.st	Wed May 02 23:07:37 2018 +0200
+++ b/SettingsDialog.st	Thu May 03 11:07:38 2018 +0200
@@ -2165,11 +2165,16 @@
             wordsInWidget := Set new.
              
             (helpKey := eachView helpKey) notNil ifTrue:[
-                wordsInWidget add:helpKey.
+                "/ wordsInWidget add:helpKey.
                 "/ helpText := anApplication helpTextForKey:helpKey.
                 "/ wordsInWidget addAll:(allWords value:helpText).
-                tooltip := anApplication helpTextForKey:helpKey.
-                wordsInWidget addAll:(allWords value:tooltip).
+                Error handle:[:ex |        
+                ] do:[
+                    tooltip := anApplication helpTextForKey:helpKey.
+                    tooltip notNil ifTrue:[        
+                        wordsInWidget addAll:(allWords value:tooltip).
+                    ].
+                ].
             ].
             label := eachView perform:#label ifNotUnderstood:nil.
             (label notNil and:[label isString]) ifTrue:[