--- a/ProjectDefinition.st	Sat Sep 06 12:45:31 2008 +0200
+++ b/ProjectDefinition.st	Sat Sep 06 13:12:46 2008 +0200
@@ -3346,10 +3346,7 @@
 
     |methods|
 
-    methods := OrderedCollection new.
-    Smalltalk allClassesDo:[:eachClass |
-        methods addAll:(eachClass extensionsFrom:aProjectID). 
-    ].
+    methods := Smalltalk allExtensionsForPackage:aProjectID.
     methods 
         sort:[:m1 :m2 | 
             |c1 c2|
@@ -4047,7 +4044,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.197 2008-09-05 17:57:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.198 2008-09-06 11:12:46 cg Exp $'
 ! !
 
 ProjectDefinition initialize!