--- a/ProjectDefinition.st	Thu Aug 17 09:54:53 2006 +0200
+++ b/ProjectDefinition.st	Thu Aug 17 09:55:05 2006 +0200
@@ -792,6 +792,15 @@
 
 !BuildDefinition class methodsFor:'queries'!
 
+definitionClassForPackage: aPackageID
+    |packageDefinitionClassName|
+
+    packageDefinitionClassName := ProjectDefinition initialClassNameForDefinitionOf:aPackageID.
+    ^ Smalltalk at:packageDefinitionClassName asSymbol.
+
+    "Created: / 17-08-2006 / 09:53:09 / cg"
+!
+
 hasAllClassesLoaded
     self allClassNames do:[:nm |
         |cls|
@@ -973,5 +982,5 @@
 !BuildDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.9 2006-08-17 07:50:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.10 2006-08-17 07:55:05 cg Exp $'
 ! !