# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1487190309 -3600
# Node ID 44f655bf5c80b3f09b80c85fe42f029e98bacd8c
# Parent  0f7f5f090f81dd329e73974e3f836682fe398b4b
*** empty log message ***

diff -r 0f7f5f090f81 -r 44f655bf5c80 ProjectDefinition.st
--- a/ProjectDefinition.st	Wed Feb 15 17:45:26 2017 +0100
+++ b/ProjectDefinition.st	Wed Feb 15 21:25:09 2017 +0100
@@ -2323,10 +2323,10 @@
 
     |p superPackage idx|
     
+    p := self package.
     ProjectDefinition allSubclassesDo:[:prjDef |
-        (prjDef subProjects includes:package) ifTrue:[^ prjDef].
-    ].
-    p := package.
+        (prjDef subProjects includes:p) ifTrue:[^ prjDef].
+    ].
     [
         (idx := p lastIndexOf:$/) ~~ 0 
     ] whileTrue:[