--- a/Tools_ProjectList.st Mon Oct 12 22:00:25 2009 +0200
+++ b/Tools_ProjectList.st Tue Oct 13 09:38:23 2009 +0200
@@ -688,7 +688,7 @@
listOfProjects
|allProjects numClassesInChangeSet|
- allProjects := self allShownProjects.
+ allProjects := self allShownProjects copyAsOrderedCollection.
allProjects sort.
allProjects size == 1 ifTrue:[
@@ -870,9 +870,9 @@
!ProjectList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.41 2009-10-12 18:09:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.42 2009-10-13 07:38:23 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.41 2009-10-12 18:09:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.42 2009-10-13 07:38:23 cg Exp $'
! !