--- a/Tools__ClassChecker.st	Sun Jul 16 13:38:25 2017 +0200
+++ b/Tools__ClassChecker.st	Sun Jul 16 14:04:55 2017 +0200
@@ -148,9 +148,15 @@
 !ClassChecker methodsFor:'checks-individual'!
 
 checkProtocols
+    |allOK|
+
+    allOK := true.
     checkedClass instAndClassSelectorsAndMethodsDo:[:mSelector :method |
-	self checkProtocolOf:method
-    ]
+        allOK := allOK & (self checkProtocolOf:method)
+    ].
+    ^ allOK
+
+    "Modified: / 16-07-2017 / 13:57:39 / cg"
 !
 
 checkVariableNameConventions
@@ -649,9 +655,11 @@
         key:#checkProtocols
         info:('#' , mSelector allBold , ' is classified under "' , protocol allBold , '" in '
               , mClass name , ' and under "' , superProtocol allBold , '" in ' , implClass name
-              , ' (#checkProtocols)')
+              , ' (#checkProtocols)').
 
-    "Modified: / 18.8.2000 / 23:13:53 / cg"
+    ^ false
+
+    "Modified: / 16-07-2017 / 13:55:55 / cg"
 !
 
 checkUnusedVariables:aMethod rememberReadInstVarsIn:readInstVars writtenInstVarsIn:writtenInstVars readClassVarsIn:readClassVars writtenClassVarsIn:writtenClassVars