--- a/Tools__NewSystemBrowser.st	Fri Dec 09 15:49:38 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Sun Dec 11 21:05:49 2016 +0100
@@ -25065,22 +25065,24 @@
 
 flyByHelpTextFor:aWidget at:aPoint
     |action info label|
-    
-    aWidget = (navigationState canvas builder componentAt:'InfoLabel') ifTrue:[
-        action := aWidget actionAt:aPoint.
-        "/ Transcript show:'action under info label:'; showCR:action.
-        info := action perform:#info ifNotUnderstood:nil.
-        info notNil ifTrue:[
-            ^ info value
-        ].
-        (label := aWidget label) notNil ifTrue:[
-            label isStringCollection ifTrue:[
-                ^ label
-            ].
-            (label widthOn:aWidget) > aWidget width ifTrue:[
-                ^ label
-            ].
-        ]    
+
+    (navigationState notNil and:[navigationState canvas]) notNil ifTrue:[
+        aWidget = (navigationState canvas builder componentAt:'InfoLabel') ifTrue:[
+            action := aWidget actionAt:aPoint.
+            "/ Transcript show:'action under info label:'; showCR:action.
+            info := action perform:#info ifNotUnderstood:nil.
+            info notNil ifTrue:[
+                ^ info value
+            ].
+            (label := aWidget label) notNil ifTrue:[
+                label isStringCollection ifTrue:[
+                    ^ label
+                ].
+                (label widthOn:aWidget) > aWidget width ifTrue:[
+                    ^ label
+                ].
+            ]    
+        ].
     ].
     ^ nil