diff --git a/components/gtk/gtkglarea/gtkopengl.lpk b/components/gtk/gtkglarea/gtkopengl.lpk
index 6260392058..b5c5cb7010 100644
--- a/components/gtk/gtkglarea/gtkopengl.lpk
+++ b/components/gtk/gtkglarea/gtkopengl.lpk
@@ -44,7 +44,7 @@
     </UsageOptions>
     <PublishOptions>
       <Version Value="2"/>
-      <DestinationDirectory Value="$(TestDir)/publishedpackage/"/>
+      <DestinationDirectory Value="$(TestDir)/gtkopengl/"/>
       <CommandAfter Value="/bin/tar -cz -C $(TestDir) -f /tmp/gtkopengl.tgz gtkopengl/"/>
       <UseExcludeFileFilter Value="True"/>
     </PublishOptions>
diff --git a/ide/project.pp b/ide/project.pp
index db4975f632..b911d9d738 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -1330,8 +1330,10 @@ begin
       xmlconfig.SetValue('ProjectOptions/General/TargetFileExt/Value'
           ,TargetFileExt);
       xmlconfig.SetDeleteValue('ProjectOptions/General/Title/Value', Title,'');
-      fJumpHistory.DeleteInvalidPositions;
-      fJumpHistory.SaveToXMLConfig(xmlconfig,'ProjectOptions/');
+      if not (pfSaveOnlyProjectUnits in Flags) then begin
+        fJumpHistory.DeleteInvalidPositions;
+        fJumpHistory.SaveToXMLConfig(xmlconfig,'ProjectOptions/');
+      end;
 
       SaveUnits;
 
@@ -2661,6 +2663,9 @@ end.
 
 {
   $Log$
+  Revision 1.119  2003/05/12 14:47:45  mattias
+  reduced output
+
   Revision 1.118  2003/05/12 13:11:34  mattias
   implemented publish package
 
diff --git a/ide/projectdefs.pas b/ide/projectdefs.pas
index 566b339750..8a89b6f4ae 100644
--- a/ide/projectdefs.pas
+++ b/ide/projectdefs.pas
@@ -42,7 +42,10 @@ uses
 type
   TOnLoadSaveFilename = procedure(var Filename:string; Load:boolean) of object;
 
-  TProjectWriteFlag = (pwfDontSaveClosedUnits, pwfSaveOnlyProjectUnits);
+  TProjectWriteFlag = (
+    pwfDontSaveClosedUnits,
+    pwfSaveOnlyProjectUnits
+    );
   TProjectWriteFlags = set of TProjectWriteFlag;
 
   TNewUnitType = (
diff --git a/ide/publishmodule.pas b/ide/publishmodule.pas
index 3626a994b6..99dcc30e61 100644
--- a/ide/publishmodule.pas
+++ b/ide/publishmodule.pas
@@ -309,7 +309,8 @@ procedure TPublishModuleOptions.SaveToXMLConfig(XMLConfig: TXMLConfig;
   const APath: string);
 begin
   XMLConfig.SetValue(APath+'Version/Value',PublishModulOptsVersion);
-  XMLConfig.SetValue(APath+'DestinationDirectory/Value',GetDefaultDestinationDir);
+  XMLConfig.SetDeleteValue(APath+'DestinationDirectory/Value',
+                           DestinationDirectory,GetDefaultDestinationDir);
   XMLConfig.SetDeleteValue(APath+'CommandAfter/Value',CommandAfter,'');
   XMLConfig.SetDeleteValue(APath+'IgnoreBinaries/Value',IgnoreBinaries,true);
   XMLConfig.SetDeleteValue(APath+'UseIncludeFileFilter/Value',
diff --git a/ide/publishprojectdlg.pas b/ide/publishprojectdlg.pas
index c3c3ac61dd..e26d6d102d 100644
--- a/ide/publishprojectdlg.pas
+++ b/ide/publishprojectdlg.pas
@@ -225,8 +225,8 @@ begin
   
   // command after
   List:=InputHistories.HistoryLists.GetList(hlPublishProjectCommandsAfter,true);
-  List.AppendEntry('/bin/tar czf project.tgz -C $(TestDir) publishedproject');
-  List.AppendEntry('/bin/tar czf package.tgz -C $(TestDir) publishedpackage');
+  List.AppendEntry('/bin/tar czf $(TestDir)/project.tgz -C $(TestDir) publishedproject');
+  List.AppendEntry('/bin/tar czf $(TestDir)/package.tgz -C $(TestDir) publishedpackage');
   CommandAfterCombobox.Items.Assign(List);
 
   // file filter