changeset 21451 | 44f655bf5c80 |
parent 21449 | fab3dc7eb9be |
child 21509 | a02e65126cb3 |
--- 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:[