ProjectChecker.st
branchjv
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;