--- a/ProjectChecker.st	Wed Nov 07 17:30:33 2012 +0100
+++ b/ProjectChecker.st	Wed Nov 07 17:49:29 2012 +0100
@@ -96,7 +96,7 @@
 !ProjectChecker class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.11 2012-10-31 17:42:25 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.12 2012-11-07 16:49:29 cg Exp $'
 ! !
 
 !ProjectChecker methodsFor:'accessing'!
@@ -467,11 +467,13 @@
 !ProjectChecker methodsFor:'checks-private'!
 
 checkClasses
+    |myPackage|
 
     classes notNil ifTrue:[
         self checkClasses: classes
     ] ifFalse:[
-        self checkClasses: (Smalltalk allClasses select:[:cls | (cls package = self package)]).
+        myPackage := self package.
+        self checkClasses: (Smalltalk allClasses select:[:cls | (cls package = myPackage)]).
     ].
 
     "Created: / 11-01-2012 / 16:55:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -565,7 +567,7 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.11 2012-10-31 17:42:25 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.12 2012-11-07 16:49:29 cg Exp $'
 !
 
 version_SVN