branch | jv |
changeset 4199 | 89ebbba27db6 |
parent 4081 | 5a9726876c20 |
parent 4189 | 51a4e49728af |
child 4576 | ba355d431e55 |
--- a/ProjectChecker.st Mon Jan 23 13:13:27 2017 +0000 +++ b/ProjectChecker.st Wed Jan 25 17:16:53 2017 +0000 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 2006 by eXept Software AG All Rights Reserved @@ -342,7 +340,7 @@ | ns | ns := cls nameSpace. - (ns ~~ Smalltalk and:[(ns at: poolName asSymbol) notNil]) ifTrue:[ + (ns == Smalltalk or:[(ns at: poolName asSymbol) isNil]) ifTrue:[ self addProblem: (ProjectProblem newClassUsesPoolButItIsNotASharedPool className: cls name;