diff --git a/ide/buildlazdialog.pas b/ide/buildlazdialog.pas
index 59fcc2804c..daf2269083 100644
--- a/ide/buildlazdialog.pas
+++ b/ide/buildlazdialog.pas
@@ -62,7 +62,8 @@ type
     blfOnlyIDE,
     blfQuick,
     blfWithStaticPackages,
-    blfUseMakeIDECfg
+    blfUseMakeIDECfg,
+    blfDontClean
     );
   TBuildLazarusFlags = set of TBuildLazarusFlag;
   
@@ -320,19 +321,22 @@ begin
       CurItem:=Options.Items[i];
       // calculate make mode
       CurMakeMode:=CurItem.MakeMode;
-      if (blfOnlyIDE in Flags) then
-        if (CurItem=Options.ItemIDE) then
-          CurMakeMode:=mmCleanBuild
-        else
+      if (blfOnlyIDE in Flags) then begin
+        if (CurItem=Options.ItemIDE) then begin
+          CurMakeMode:=mmCleanBuild;
+        end else
           CurMakeMode:=mmNone;
+      end;
       if (blfQuick in Flags) and (CurMakeMode=mmCleanBuild) then
         CurMakeMode:=mmBuild;
       if CurMakeMode=mmNone then continue;
+      if (CurMakeMode=mmCleanBuild) and (blfDontClean in Flags) then
+        CurMakeMode:=mmBuild;
       Tool.Title:=CurItem.Description;
       if (CurItem=Options.ItemIDE) and (blfWithoutLinkingIDE in Flags) then
         Tool.Title:=lisCompileIDEWithoutLinking;
       Tool.WorkingDirectory:='$(LazarusDir)/'+CurItem.Directory;
-      Tool.CmdLineParams:=CurItem.Commands[CurItem.MakeMode];
+      Tool.CmdLineParams:=CurItem.Commands[CurMakeMode];
       // append extra options
       ExtraOptions:='';
       Result:=CreateBuildLazarusOptions(Options,i,Macros,PackageOptions,Flags,
diff --git a/ide/main.pp b/ide/main.pp
index d180194db2..c729c7496a 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -5901,7 +5901,7 @@ begin
     SourceNotebook.ClearErrorLines;
     Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
                          EnvironmentOptions.ExternalTools,MacroList,
-                         PkgOptions,IDEBuildFlags+[blfUseMakeIDECfg]);
+                         PkgOptions,IDEBuildFlags+[blfUseMakeIDECfg,blfDontClean]);
     if Result<>mrOk then exit;
   finally
     DoCheckFilesOnDisk;
@@ -9926,6 +9926,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.661  2003/10/30 20:15:45  mattias
+  fixed building IDE clean
+
   Revision 1.660  2003/10/28 14:25:37  mattias
   fixed unit circle