--- a/ProjectDefinition.st	Thu Sep 15 10:42:47 2011 +0200
+++ b/ProjectDefinition.st	Thu Sep 15 14:15:54 2011 +0200
@@ -6394,35 +6394,35 @@
 
     emptyProjects := Set withAll:self subProjects.
     Smalltalk allClassesDo:[:cls |
-        emptyProjects remove:(cls package) ifAbsent:[].
+	emptyProjects remove:(cls package) ifAbsent:[].
     ].
     nonProjects := self subProjects select:[:p |
-                    (ProjectDefinition definitionClassForPackage: p) isNil
-                   ].
+		    (ProjectDefinition definitionClassForPackage: p) isNil
+		   ].
 
     emptyOrNonProjects := Set withAll:emptyProjects.
     emptyOrNonProjects addAll:nonProjects.
 
     emptyOrNonProjects notEmpty ifTrue:[
-        (Dialog
-            confirm:('The following projects are non-existent, empty or without description:\\    '
-                    , ((emptyOrNonProjects
-                            asSortedCollection
-                                collect:[:p | p allBold])
-                                asStringWith:'\    ')
-                    , '\\Continue ?') withCRs
-            yesLabel:'OK' noLabel:'Cancel')
-        ifFalse:[
-            AbortSignal raise
-        ].
+	(Dialog
+	    confirm:('The following projects are non-existent, empty or without description:\\    '
+		    , ((emptyOrNonProjects
+			    asSortedCollection
+				collect:[:p | p allBold])
+				asStringWith:'\    ')
+		    , '\\Continue ?') withCRs
+	    yesLabel:'OK' noLabel:'Cancel')
+	ifFalse:[
+	    AbortSignal raise
+	].
     ].
 
-    classesInImage := Smalltalk allClasses select:[:cls | cls package = package].
+    classesInImage := Smalltalk allClasses select:[:cls | cls package = self package].
     classesInDescription := self classes asIdentitySet.
     classesInImage ~= classesInDescription ifTrue:[
-        (Dialog confirm:'The set of classes in the image is different from the listed classes in the project definition.\\Proceed?' withCRs) ifFalse:[
-            AbortSignal raiseRequest
-        ]
+	(Dialog confirm:'The set of classes in the image is different from the listed classes in the project definition.\\Proceed?' withCRs) ifFalse:[
+	    AbortSignal raiseRequest
+	]
     ].
 
     "
@@ -6501,11 +6501,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.358 2011-09-14 13:52:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.359 2011-09-15 12:15:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.358 2011-09-14 13:52:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.359 2011-09-15 12:15:54 cg Exp $'
 !
 
 version_SVN