--- a/ProjectChecker.st	Sun Nov 18 19:46:19 2012 +0000
+++ b/ProjectChecker.st	Fri Nov 30 17:20:01 2012 +0000
@@ -93,6 +93,12 @@
     "Created: / 11-01-2012 / 16:46:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ProjectChecker class methodsFor:'others'!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.12 2012/11/07 16:49:29 cg Exp §'
+! !
+
 !ProjectChecker methodsFor:'accessing'!
 
 classes: aCollection
@@ -462,11 +468,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>"
@@ -560,13 +568,9 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ProjectChecker.st 1979 2012-11-18 19:46:19Z vranyj1 $'
-!
-
-version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.11 2012-10-31 17:42:25 +0000 vrany Exp §'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.12 2012/11/07 16:49:29 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: ProjectChecker.st 1979 2012-11-18 19:46:19Z vranyj1 $'
+    ^ '$Id: ProjectChecker.st 1981 2012-11-30 17:20:01Z vranyj1 $'
 ! !