--- a/Tools__NewSystemBrowser.st	Wed Oct 05 18:30:40 2016 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Oct 05 19:02:36 2016 +0200
@@ -41031,16 +41031,17 @@
     Tools::ProjectBuilderAssistantApplication new
         projectType:projectDefinition projectType.
 
+    projectBuilder := Tools::ProjectBuilder new.
+    projectBuilder makeExeOnly:exeOnly; package:projectToBuild.
+
     Transcript isView ifTrue:[
         Transcript topView raise.
     ].
-
-    projectBuilder := Tools::ProjectBuilder new.
-    projectBuilder
-        makeExeOnly:exeOnly;
-        package:projectToBuild;
-        "/ build
-        buildWithColorizedOutputTo:Transcript.
+    Transcript showCR:'*******************'.
+    Transcript showCR:('building in %1...' bindWith:projectBuilder buildDirectory pathName).
+    
+    "/ build
+    projectBuilder buildWithColorizedOutputTo:Transcript.
 
     buildDir := projectToBuild asPackageId pathRelativeToTopDirectory:projectBuilder buildDirectory.