--- a/Tools__ProjectBuilderAssistantApplication.st	Sat Jul 21 18:58:03 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Sat Jul 21 18:58:50 2012 +0200
@@ -1680,9 +1680,9 @@
 !
 
 doOpenExplorer
-    OperatingSystem
-        openApplicationForDocument:(projectBuilder packageBuildDirectory) 
-        operation:#explore.
+    projectBuilder packageBuildDirectory asFilename openExplorer
+
+    "Modified: / 21-07-2012 / 12:29:21 / cg"
 !
 
 doStartMakeAll
@@ -2255,7 +2255,7 @@
 !
 
 openOn:aProjectDefinitionClass
-    |type apps startupClass|
+    |type apps startupClass pageToGo|
 
     self allButOpen.
     aProjectDefinitionClass isLibraryDefinition ifTrue:[
@@ -2273,14 +2273,17 @@
     self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package).
     self hasProjectSelectedHolder value:true.
 
-    self gotoPage:3.
+    pageToGo := 3.
     type == ProjectDefinition guiApplicationType ifTrue:[
         (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[
+            self updateListOfStartupClassesInProject.
             selectedStartupClass := startupClass.
-            self gotoPage:4.
+            self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass).
+            pageToGo := 5.
         ]. 
 "/    apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel])
     ].
+    self gotoPage:pageToGo.
     self openWindow.
 
     "Created: / 20-07-2012 / 12:34:02 / cg"