--- a/Tools__NewSystemBrowser.st	Sat Mar 02 16:23:23 2019 +0100
+++ b/Tools__NewSystemBrowser.st	Sun Mar 03 16:23:19 2019 +0100
@@ -24695,7 +24695,7 @@
 !
 
 delayedUpdateCodeWithAutoSearch:withAutoSearch scrollToTop:scrollToTop checkModified:checkModified
-    "the central method to update what is shownin the codeview.
+    "the central method to update what is shown in the codeview.
      Determines what is currently selected in the navigationstate, and
      generates either the source of a selected method, or a class definition template
      or some synthetic comment giving a hint (usually for newcomers)"
@@ -24822,22 +24822,24 @@
                                     s nextPutLine:'Classes are in multiple packages.'; cr.
                                 ].    
                                 packages do:[:eachPackage|
-                                    first ifFalse:[
-                                        s cr.
-                                        s cr.
-                                    ]. 
-                                    first := false.
-                                    s nextPutAll:'Classes in package: ',eachPackage allBold.
-                                    defClass := eachPackage asPackageId projectDefinitionClass.
-                                    defClass isNil ifTrue:[
-                                        mthd := nil.
-                                    ] ifFalse:[    
-                                        mthd := defClass theMetaclass compiledMethodAt:#documentation.
-                                    ].    
-                                    (mthd isNil or:[mthd comment isNil]) ifTrue:[
-                                        s cr; nextPutLine:'    Sorry, the package does not seem to provide documentation'
-                                    ] ifFalse:[
-                                        s nextPutAll:(mthd comment).
+                                    eachPackage notNil ifTrue:[
+                                        first ifFalse:[
+                                            s cr.
+                                            s cr.
+                                        ]. 
+                                        first := false.
+                                        s nextPutAll:'Classes in package: ',eachPackage allBold.
+                                        defClass := eachPackage asPackageId projectDefinitionClass.
+                                        defClass isNil ifTrue:[
+                                            mthd := nil.
+                                        ] ifFalse:[    
+                                            mthd := defClass theMetaclass compiledMethodAt:#documentation.
+                                        ].    
+                                        (mthd isNil or:[mthd comment isNil]) ifTrue:[
+                                            s cr; nextPutLine:'    Sorry, the package does not seem to provide documentation'
+                                        ] ifFalse:[
+                                            s nextPutAll:(mthd comment).
+                                        ].    
                                     ].    
                                 ].    
                                 s nextPutLine:'"'.
@@ -24902,7 +24904,7 @@
     self updateProtocolSelectionForChangedMethodSelection.
 
     "Created: / 13-06-2018 / 11:24:03 / Claus Gittinger"
-    "Modified: / 01-03-2019 / 16:22:38 / Claus Gittinger"
+    "Modified (comment): / 03-03-2019 / 16:23:01 / Claus Gittinger"
 !
 
 delayedVariableSelectionChanged
@@ -61561,7 +61563,6 @@
     ^ selectorCompletion
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass