diff --git a/ide/buildprofilemanager.pas b/ide/buildprofilemanager.pas
index 1efa0faf5f..3cb1a8d7fc 100644
--- a/ide/buildprofilemanager.pas
+++ b/ide/buildprofilemanager.pas
@@ -135,7 +135,6 @@ type
     procedure Assign(Source: TBuildLazarusProfile; ACopyName: Boolean=True);
     procedure Load(XMLConfig: TXMLConfig; const Path: string);
     procedure Save(XMLConfig: TXMLConfig; const Path: string);
-    function CompiledUnitExt(FPCVersion, FPCRelease: integer): string;
   public
     property Name: string read fName;
     property CleanAll: boolean read fCleanAll write fCleanAll;
@@ -500,16 +499,6 @@ begin
     fMakeModes[i]:=Source.MakeModes[i];
 end;
 
-function TBuildLazarusProfile.CompiledUnitExt(FPCVersion, FPCRelease: integer): string;
-begin
-  Result:=GetDefaultCompiledUnitExt(FPCVersion,FPCRelease);
-  if (CompareText(TargetOS,'win32')=0)
-  and (FPCVersion=1) and (FPCRelease=0) then
-    Result:='.ppw'
-  else
-    Result:='.ppu';
-end;
-
 
 { TBuildLazarusProfiles }
 
diff --git a/ide/main.pp b/ide/main.pp
index ea190ab418..b576de7ab3 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -11421,8 +11421,7 @@ begin
                                  EnvironmentOptions.LazarusDirectory,
                                  FPCVersion,FPCRelease,FPCPatch);
       if FPCPatch=0 then ;
-      CompiledUnitExt:=MiscellaneousOptions.BuildLazOpts.CompiledUnitExt(
-                         FPCVersion,FPCRelease);
+      CompiledUnitExt:=GetDefaultCompiledUnitExt(FPCVersion,FPCRelease);
       Result:=MainBuildBoss.CheckUnitPathForAmbiguousPascalFiles(
                        EnvironmentOptions.LazarusDirectory,
                        InheritedOptionStrings[icoUnitPath],