--- a/ProjectDefinition.st	Tue Apr 02 11:26:59 2013 +0200
+++ b/ProjectDefinition.st	Tue Apr 02 11:31:44 2013 +0200
@@ -1396,9 +1396,10 @@
 
     |subProjects|
 
-    subProjects := self subProjects asSet.
-    subProjects removeAllFoundIn:self excludedFromSubProjects.
-    subProjects remove:self package ifAbsent:[].
+    subProjects := self subProjects asNewSet.
+    subProjects 
+        removeAllFoundIn:self excludedFromSubProjects;
+        remove:self package ifAbsent:[].
 
     ^ subProjects
 !
@@ -7251,11 +7252,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.448 2013-04-02 08:56:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.449 2013-04-02 09:31:44 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.448 2013-04-02 08:56:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.449 2013-04-02 09:31:44 stefan Exp $'
 !
 
 version_SVN