--- a/ProjectDefinition.st	Fri Sep 23 19:50:05 2011 +0200
+++ b/ProjectDefinition.st	Mon Sep 26 11:52:55 2011 +0200
@@ -6417,7 +6417,7 @@
         ].
     ].
 
-    classesInImage := Smalltalk allClasses select:[:cls | cls package = self package].
+    classesInImage := Smalltalk allClasses select:[:cls | (cls package = self package) and:[cls isPrivate not]].
     classesInDescription := self classes asIdentitySet.
     classesInImage ~= classesInDescription ifTrue:[
         onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]).
@@ -6437,7 +6437,7 @@
      squeak_vmMaker validateDescription
     "
 
-    "Modified: / 17-09-2011 / 15:48:42 / cg"
+    "Modified: / 26-09-2011 / 11:52:05 / cg"
 ! !
 
 !ProjectDefinition class methodsFor:'testing'!
@@ -6509,11 +6509,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.360 2011-09-18 11:05:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.361 2011-09-26 09:52:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.360 2011-09-18 11:05:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.361 2011-09-26 09:52:55 cg Exp $'
 !
 
 version_SVN