diff --git a/src/ce_main.pas b/src/ce_main.pas
index 80c14e98..affca375 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -341,9 +341,9 @@ begin
   fPrjCfWidg.Free;
   fStExpWidg.Free;
   fFindWidg.Free;
-  fProject.Free;
   fProjMru.Free;
   fFileMru.Free;
+  fProject.Free;
   //
   inherited;
 end;
@@ -942,7 +942,7 @@ begin
     {$IFDEF RELEASE}
     dmdProc.ShowWindow := swoHIDE;
     {$ENDIF}
-    dmdproc.Options := [poStdErrToOutput, poUsePipes];
+    dmdproc.Options := [poNewConsole, poStdErrToOutput, poUsePipes];
 
     dmdproc.Executable := 'dmd';
     aProject.getOpts(dmdproc.Parameters);
@@ -1115,7 +1115,8 @@ procedure TCEMainForm.newProj;
 var
   widg: TCEWidget;
 begin
-  fProject := TCEProject.Create(self);
+  fProject := TCEProject.Create(nil);
+  fProject.Name := 'CurrentProject';
   for widg in WidgetList do widg.projNew(fProject);
   fProject.onChange := @projChange;
 end;