diff --git a/ide/lazbuild.lpi b/ide/lazbuild.lpi
index d895e9e4a8..1e7c6f08d4 100644
--- a/ide/lazbuild.lpi
+++ b/ide/lazbuild.lpi
@@ -52,7 +52,6 @@
       <Unit1>
         <Filename Value="buildmanager.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="BuildManager"/>
       </Unit1>
       <Unit2>
         <Filename Value="basebuildmanager.pas"/>
diff --git a/ide/main.pp b/ide/main.pp
index 192c858fcd..28a37cf0f5 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -782,6 +782,7 @@ type
                             Flags: TProjectBuildFlags): TModalResult; override;
     function UpdateProjectPOFile(AProject: TProject): TModalResult;
     function DoAbortBuild: TModalResult;
+    procedure DoCompile;
     procedure DoQuickCompile;
     function DoInitProjectRun: TModalResult; override;
     function DoRunProject: TModalResult;
@@ -3254,13 +3255,7 @@ begin
   ecSaveAll:                  DoSaveAll([sfCheckAmbiguousFiles]);
   ecQuit:                     mnuQuitClicked(Self);
   ecCompile:
-    begin
-      GetCurrentUnit(ASrcEdit,AnUnitInfo);
-      if Assigned(AnUnitInfo) and AnUnitInfo.BuildFileIfActive then
-        DoBuildFile(false)
-      else
-        DoBuildProject(crCompile, []);
-    end;
+    DoCompile;
   ecRun:
     begin
       GetCurrentUnit(ASrcEdit,AnUnitInfo);
@@ -4266,16 +4261,8 @@ begin
 end;
 
 procedure TMainIDE.mnuCompileProjectClicked(Sender: TObject);
-var
-  ASrcEdit: TSourceEditor;
-  AnUnitInfo: TUnitInfo;
 Begin
-  GetCurrentUnit(ASrcEdit,AnUnitInfo);
-  if (AnUnitInfo<>nil)
-  and AnUnitInfo.BuildFileIfActive then
-    DoBuildFile(false)
-  else
-    DoBuildProject(crCompile,[]);
+  DoCompile;
 end;
 
 procedure TMainIDE.mnuBuildProjectClicked(Sender: TObject);
@@ -6765,6 +6752,18 @@ begin
   AbortBuild;
 end;
 
+procedure TMainIDE.DoCompile;
+var
+  ASrcEdit: TSourceEditor;
+  AnUnitInfo: TUnitInfo;
+begin
+  GetCurrentUnit(ASrcEdit,AnUnitInfo);
+  if Assigned(AnUnitInfo) and AnUnitInfo.BuildFileIfActive then
+    DoBuildFile(false)
+  else
+    DoBuildProject(crCompile, []);
+end;
+
 procedure TMainIDE.DoQuickCompile;
 begin
   DoBuildProject(crCompile,[pbfSkipLinking,pbfSkipTools,pbfSkipAssembler]);