--- a/ProjectChecker.st	Sun Jul 07 23:43:42 2019 +0200
+++ b/ProjectChecker.st	Tue Jul 09 15:21:52 2019 +0200
@@ -17,7 +17,7 @@
 
 Object subclass:#ProjectChecker
 	instanceVariableNames:'packages currentPackage currentPackageDef classes methods
-		problems phase checkExtensionsOnly rulesApplied'
+		problems phase checkExtensionsOnly skipCheckClasses rulesApplied'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Support-Projects'
@@ -141,6 +141,10 @@
     ^ problems
 
     "Modified: / 23-02-2012 / 15:14:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+skipCheckClasses:aBoolean
+    skipCheckClasses := aBoolean.
 ! !
 
 !ProjectChecker methodsFor:'checking'!
@@ -669,7 +673,9 @@
         classesToCheck remove:currentPackageDef ifAbsent:[]
     ].
 
-    self checkClasses: classesToCheck.
+    skipCheckClasses ifFalse:[
+        self checkClasses: classesToCheck.
+    ].
 
     (currentPackageDef notNil and:[currentPackageDef isFolderForProjectsDefinition]) ifTrue:[
         classesToCheck do:[:eachClass |
@@ -772,14 +778,10 @@
 initialize
     "Invoked when a new instance is created."
 
-    "/ please change as required (and remove this comment)
+    skipCheckClasses := checkExtensionsOnly := false.
+
     packages := OrderedCollection new.
-    "/ currentPackage := nil.
-    "/ currentPackageDef := nil.
-    "/ classes := nil.
-    "/ methods := nil.
     problems := List new.
-    "/ phase := nil.
 
     "/ super initialize.   -- commented since inherited method does nothing