--- a/NewLauncher.st	Tue Nov 11 15:58:57 2014 +0100
+++ b/NewLauncher.st	Tue Nov 11 16:03:24 2014 +0100
@@ -4903,7 +4903,7 @@
     "load wellknown package"    
 
     |l root d v itemsByPath getItemByPath packageIdByItem packageID
-     packageIcon greyPackageIcon folderIcon|
+     packageIcon greyPackageIcon folderIcon browse|
 
     folderIcon := ToolbarIconLibrary directoryOpen18x18Icon.
     packageIcon := ToolbarIconLibrary packageOpen24x24Icon.
@@ -4976,17 +4976,20 @@
     d label:(resources string:'Load Package').
     d addAbortButton.
     d addOkButtonLabelled:(resources string:'Load').
+    (d addOkButtonLabelled:(resources string:'Load & Browse')) action:[browse := true. d accept].
 
     v := HVScrollableView for:HierarchicalListView.
     v multipleSelectOk:true.
     v list:l.
-    v preferredExtent:(300 @ 300).
+    v preferredExtent:(400 @ 300).
 
     d addComponent:v.
     d stickAtBottomWithVariableHeight:v.
     PreviousPackageDialogExtent notNil ifTrue:[
         d extent:PreviousPackageDialogExtent
     ].
+
+    browse := false.
     d open.
 
     "/ remember the expand/collapse status
@@ -4999,6 +5002,9 @@
 
             package := packageIdByItem at:eachSelectedItem.
             Smalltalk loadPackage:package.
+            browse ifTrue:[
+                Tools::NewSystemBrowser openOnPackage:package
+            ].
         ].
     ].
 !
@@ -5218,14 +5224,14 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.497 2014-11-11 14:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.498 2014-11-11 15:03:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.497 2014-11-11 14:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.498 2014-11-11 15:03:24 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: NewLauncher.st,v 1.497 2014-11-11 14:58:57 cg Exp $'
+    ^ '$Id: NewLauncher.st,v 1.498 2014-11-11 15:03:24 cg Exp $'
 ! !