diff --git a/ideintf/packageintf.pas b/ideintf/packageintf.pas
index 5f2c7dcf98..5d995bce23 100644
--- a/ideintf/packageintf.pas
+++ b/ideintf/packageintf.pas
@@ -1,4 +1,3 @@
-{  $Id$  }
 {
  *****************************************************************************
  *                                                                           *
diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas
index a86e5f4807..c4dbec647c 100644
--- a/packager/packagesystem.pas
+++ b/packager/packagesystem.pas
@@ -5234,6 +5234,10 @@ var
 begin
   List:=nil;
   MarkAllPackagesAsNotVisited;
+  if APackage<>nil then begin
+    FirstDependency:=APackage.FirstRequiredDependency;
+    APackage.Flags:=APackage.Flags+[lpfVisited];
+  end;
   // create topological list, beginning with the leaves
   GetTopologicalOrder(FirstDependency,DepLevel);
   if not (pirCompileOrder in Flags) then begin