--- 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:[