--- a/Tools__NewSystemBrowser.st	Tue Dec 13 18:22:04 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Dec 15 18:17:00 2016 +0100
@@ -19830,7 +19830,6 @@
     "Created: / 24.2.2000 / 23:28:06 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-organization'!
 
 categoryMenuVisible
@@ -40156,7 +40155,6 @@
     HTMLDocumentView openFullOnDocumentationFile:'TOP.html'
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-inheritance'!
 
 inheritanceMenuNavigateToClass
@@ -53511,7 +53509,6 @@
     "Modified: / 19-10-2011 / 16:48:31 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menus-dynamic-lint'!
 
 smalllintCheckMenuForCategory
@@ -58937,15 +58934,18 @@
     
     |messageShown canvas lbl doAnimate|
     
-    (canvas := self navigationState canvas) notNil ifTrue:[
-        lbl := canvas builder componentAt:'InfoLabel'.
-    ].        
-    "/ Transcript showCR:lbl.
-    "/ Transcript showCR:msg.
-    lbl notNil ifTrue:[ lbl stopAnimation ].
-    doAnimate := false.
+    navigationState notNil ifTrue:[
+        (canvas := navigationState canvas) notNil ifTrue:[
+            lbl := canvas builder componentAt:'InfoLabel'.
+        ].        
+        "/ Transcript showCR:lbl.
+        "/ Transcript showCR:msg.
+        lbl notNil ifTrue:[ lbl stopAnimation ].
+        doAnimate := false.
     
-    self navigationState showingParseError:false.
+        navigationState showingParseError:false.
+    ].
+
     (messageShown := msg) notNil ifTrue:[
         messageShown := msg asStringCollection "asStringWithoutFinalCR".
         messageShown size <= 1 ifTrue:[