--- a/AbstractLauncherApplication.st	Fri Mar 25 22:49:49 2016 +0100
+++ b/AbstractLauncherApplication.st	Fri Mar 25 22:50:17 2016 +0100
@@ -7150,6 +7150,10 @@
 
 open
     self new openLoadPackageDialog
+!
+
+openModal
+    self new openLoadPackageDialogModal:true
 ! !
 
 !AbstractLauncherApplication::PackageLoadDialog methodsFor:'opening'!
@@ -7160,6 +7164,15 @@
      TODO: make this a little app instead of an ad-hoc dialog, 
      add remote packages (central goody repository?)"    
 
+    self openLoadPackageDialogModal:false.
+!
+
+openLoadPackageDialogModal:modal
+    "open a dialog showing wellknown packages (listed in the packages directory)
+     and offer to load the selected one(s).
+     TODO: make this a little app instead of an ad-hoc dialog, 
+     add remote packages (central goody repository?)"    
+
     |list dialog filter v   
      browse selectionChangeAction 
      selectedPackageLabel infoView monticelloLabel|
@@ -7279,7 +7292,11 @@
     ].
 
     browse := false.
-    dialog openModelessAtPointer.
+    modal ifTrue:[
+        dialog openModalAtPointer.
+    ] ifFalse:[
+        dialog openModelessAtPointer.
+    ].
 
     "/ remember the expand/collapse status
     PreviousPackageDialogItems := itemsByPath.