--- a/ProjectChecker.st	Thu Jul 26 13:58:48 2012 +0200
+++ b/ProjectChecker.st	Thu Jul 26 13:59:15 2012 +0200
@@ -153,7 +153,7 @@
     "Checks whether all classes listed in #classNamesAndAttributes are present
     and if all present classes are listed"
 
-    |classesInImage classesInDescription onlyInImage onlyInDescription|
+    |classesInImage classesInDescription onlyInDescription|
     "WARNING: Copy/paste of ProjectDefinition>>validateDescription"
 
     classesInImage := Smalltalk allClasses select:[:cls | (cls package = self package) and:[cls isPrivate not]].
@@ -200,11 +200,12 @@
     ].
 
     classesInImage ~= classesInDescription ifTrue:[
-        onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]).
-        onlyInImage do:[:cls|
-            self addProblem: 
-                (ProjectProblem newClassNotListed className: cls name).
-        ].
+        "This is done later in checkClassesListedInProjectDefinition:"
+"/        onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]).
+"/        onlyInImage do:[:cls|
+"/            self addProblem: 
+"/                (ProjectProblem newClassNotListed className: cls name).
+"/        ].
         onlyInDescription := (classesInDescription reject:[:cls | classesInImage includes:cls]).
         onlyInDescription do:[:cls|
             self addProblem: 
@@ -474,11 +475,11 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.5 2012-07-26 11:42:28 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.6 2012-07-26 11:59:15 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.5 2012-07-26 11:42:28 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.6 2012-07-26 11:59:15 vrany Exp $'
 !
 
 version_SVN